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

wiwivvv wiwivvv    2   06.03.2019 16:10    0

Ответы
Poli2533 Poli2533  24.05.2020 02:23

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.

ПОКАЗАТЬ ОТВЕТЫ
Аврораttt3783 Аврораttt3783  24.05.2020 02:23

var

 i,s:longint;

begin

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

writeln(s);

end.

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика