Составить программу на вычисление суммы четных чисел от 1 до 100, через оператор for

1

Ответы и объяснения

Лучший Ответ!
2014-04-15T16:03:58+00:00
Вот Паскаль
var a,i:integer;
begin
a:=0;
for i:=1 to 100 do begin
if (i mod 2=0) then
a:=a+i;
end;
writeln(a);
end.