Помогите написать задачу на паскале (с оператором For) даны два целых числа A и B(A меньше B).Найти сумму всех целых чисел от A до B включительно
Помогите написать задачу на паскале (с оператором For) даны два целых числа A и B(A < B).Найти сумму всех целых чисел от A до B включительно
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы