Составить алгоритм и программу ** Паскале, позволяющую найти сумму натуральных чисел,...

Question

Составить алгоритм и программу на Паскале, позволяющую найти сумму натуральных чисел, кратных 12, в диапазоне от 1 до 70

Comments

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

Answer 1

Var i,s:integer;
begin
i:=12;
a:=1;
while a<=70 do begin s:=s+i; i:=i+12; end;<br>writeln('сумма=',s);
end.