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

Question

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

soso1666 · Answer

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