Question

Pascal: Cума квадратів всіх двозначних непарних чисел, які діляться на 3 та їх кількість

Answer 1

Program skv;
var
s, c, i: integer;
begin
c := 0;
s := 0;
for i := 10 to 99 do
if (i mod 2 = 1) and (i mod 3 = 0) then
begin
s := s + i;
c := c + 1;
end;
writeln('Сума: ', s);
writeln('Кількість: ', c);
end.