Предмет: Информатика,
автор: lerusya030299
Составьте программу, которая находит сумму всех четных чисел до 300.
Ответы
Автор ответа:
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.
Выбирайте лучший ;)
begin
sum:=0;
for i:=1 to 300 do
if i mod 2=0 then sum:= sum+i;
writeln(sum);
readln
end.
Выбирайте лучший ;)
Похожие вопросы
Предмет: Химия,
автор: Аноним
Предмет: Физика,
автор: camtahir
Предмет: Математика,
автор: Аноним
Предмет: Геометрия,
автор: plishelp