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

Question

Антоний

11 февраля, 17:51

+3

Ответы (1)

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

Велимир · Answer 1

Pascal

var

a, b, i, sum:Integer;

Begin

Read (a, b) ;

for i:=a to b do

sum:=sum+i;

Writeln (sum) ;

end.