с клавиатуры вводится 3 числа. найти сумму чисел от 2 до 3. вывести на экран.

1

Ответы и объяснения

2013-01-18T09:39:35+00:00

var

  a, b, c, i, sum : integer;

begin

  read (a, b, c);

  sum := 0; 

  for i := b to c do inc (sum, i);

  writeln (sum);

end.