Question

Помогите скласть программу в Paskal

Составить программу для вычисления суммы чисел от 1 до 20 включительно, результат вывести На экране
1)с оператором while 2)с оператором for

Answer 1

var

i, _sum : integer;

begin

i := 1;

while i <= 20 do

   begin

   _sum := _sum + i;

   i := i + 1;

   end;

writeln(_sum);

end.

var

i, _sum : integer;

begin

for i := 1 to 20 do

   _sum := _sum + i;

writeln(_sum);

end.