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

Question

Информатика

Агрипинка

17 мая, 04:21

Помогите написать задачу на паскале (с оператором 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.