Помогите составить программу решения задачи в паскаль АВС.

Даны два целых числа А и В (А меньше В). Найти сумму всех целых чисел от А до В включительно.

Question

Вестита

24 июля, 04:47

+2

Ответы (1)

Знаете ответ на вопрос?

Аэлита · Answer 1

Var a, b, c, i: integer;

begin

readln (a, b) ;

for i : = a to b do c : = c + i;

writeln (c) ;

end.

Проверил)

Помогите составить программу решения задачи в паскаль АВС.Даны два целых числа А и В (А меньше В). Найти сумму всех целых чисел от А до В включительно.