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.