Question

С помощью "пока" цикла найти сумму четных чисел от 2 до 100 pascal

Answer 1

var

_sum, i : integer;

begin

_sum := 0;

i := 2;

while (i <= 100) do

begin

_sum := _sum + i;

i := i + 2;

end;

writeln(_sum);

end.