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

Question

Информатика

Асаф

9 октября, 07:24

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

+1

Ответы (1)

Знаете ответ?

Хрисанф · Answer 1

var

A, B, i, Summ : Integer;

begin

Writeln ('Введите числа:') ;

Readln (A, B) ;

Summ : = 0;

for i : = A to B do

Summ : = Summ + i;

Writeln ('Сумма равна: ', Summ) ;

Readln;

end.