Сосчитать сумму и количество двухзначных чисел, кратных 7. Язык программирования -...

Question

Сосчитать сумму и количество двухзначных чисел, кратных 7. Язык программирования - Паскаль.

Answer 1

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.