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

Question

Иулиана

28 февраля, 18:56

+4

Ответы (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.