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

Question

Сабиг

26 октября, 00:02

+1

Ответы (1)

Знаете ответ на вопрос?

Франсес · Answer 1

Var i, s:integer;

begin

i:=12;

a:=1;

while a<=70 do begin s:=s+i; i:=i+12; end;

writeln ('сумма=', s) ;

end.