составьте программу для нахождения суммы чисел 20 до 60 кратных пяти. по турбо паскалю

Question

Каллисфен

18 марта, 12:19

+1

Ответы (2)

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

Эллина · Answer 1

var

i, s:integer;

begin

s:=0;

for i:=20 to 60 do

if i mod 5 = 0 then s:=s+i;

writeln (s) ;

end.

Станислав · Answer 2

var

i, s:longint;

begin

for i:=20 to 60 do if i mod 5=0 then inc (s, i) ;

writeln (s) ;

end.