Question

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

Answer 1

Program _1;

Var

sum, i : Integer;

Begin

sum:=0;

For i:=10to 80 do If i mod 7 = 0 then sum:=sum+i;

Writeln(sum);

end.