Question

составьте алгоритм и программу на паскале, на нахождение суммы натуральных чисел, кратных 12, в диапазоне от 1 до 70

Answer 1

var i, S:integer;
Begin
S:=0;
for i:=1 to 70 do
if (i mod 12=0) then
S:=S+i;
Write('S=', S);
End.