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

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

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


Информатика (12 баллов) | 29 просмотров
Дан 1 ответ
0 голосов

Var i, sum: integer;
begin
sum:=0;
for i:=1 to 300 do
if i mod 2=0 then sum:= sum+i;
writeln(sum);
readln
end.
 Выбирайте лучший ;)

(797 баллов)