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

Ответы

Ответ дал: emblerik
0

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.

  

Похожие вопросы