Сосчитать сумму и количество двухзначных чисел, кратных 7. Язык программирования - Паскаль.
var a,k,s:integer;
begin for a:=10 to 99 do begin
if (a mod 7=0) then s:=s+a;
k:=k+1;
end;
writeln(s);
writeln(k);
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
var a,k,s:integer;
begin for a:=10 to 99 do begin
if (a mod 7=0) then s:=s+a;
k:=k+1;
end;
writeln(s);
writeln(k);
end.