Question

Напишите программу, которая запрашивает число N, а затем считает сумму чисел от 1 до N включительно, т.е. 1+2+3...+N

Answer 1

program abc

var

i,res:integer;

begin

res:=0

for i:=1 to 100 do  

 res:=res+i;

end. //не уверен что сработает, но должно