Предмет: Информатика,
автор: sgushenkayt
Составить программу нахождения суммы всех целых чисел от 25 до 125, которые кратны 7 ПАСКАЛЬ
Ответы
Автор ответа:
0
Program Z1;
var
a,s:integer;
Begin
s:=0;
for a:=25 to 125 do
if a mod 7=0 then s:=s+a;
writeln(s);
end.
var
a,s:integer;
Begin
s:=0;
for a:=25 to 125 do
if a mod 7=0 then s:=s+a;
writeln(s);
end.
Похожие вопросы
Предмет: Математика,
автор: KulmatovRashid
Предмет: Английский язык,
автор: kanatbek1096
Предмет: Математика,
автор: Аноним
Предмет: Литература,
автор: chertovam1
Предмет: Химия,
автор: Alina1536