Question

Найти сумму всех целых чисел от 0 до b ( Значение b вводится с клавиатуры ) ( ABC Pascal ) 8 класс

Answer 1

var

b, i, sum : integer;

begin

readln (b);

sum:= 0;

for i:= 0 to b do

sum:=sum+i;

writeln (sum);

end.