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

Question

Информатика

Андя

21 мая, 19:50

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

+4

Ответы (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.