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

0 голосов
40 просмотров

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


Информатика (76 баллов) | 40 просмотров
Дан 1 ответ
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.

(91 баллов)