Предмет: Информатика, автор: sgushenkayt

Составить программу нахождения суммы всех целых чисел от 25 до 125, которые кратны 7 ПАСКАЛЬ

Ответы

Автор ответа: molodov2002
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.
Похожие вопросы
Предмет: Математика, автор: KulmatovRashid
Предмет: Английский язык, автор: kanatbek1096
Предмет: Математика, автор: Аноним