< >

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

Ответы

Ответ дал: Yegor55
0

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.

Похожие вопросы
Русский язык
2 года назад
в слове горюет есть окончание
Русский язык
2 года назад
Морфемный разбор слова: туманность
Математика
7 лет назад
СРОЧНО РЕШИТЕ ВТОРУЮ СТРОЧКУ
Биология
7 лет назад
1. Как называется часть зародыша, из которой развивается корень взрослого растения? 2. Как называется место прикрепления семени к семяножки. 3. Выбери пример растения которые относится к классу
География
10 лет назад
1) На карте мира найдите территорию РК. Определите положение страны на материке, по отношению к экватору и начальному меридиану. 2) Определите протяженность РК с севера на юг, с запада на восток в
Математика
10 лет назад
помогите составить краткое условие к задаче решение есть . в магазин привезли 7 ящиков мясных консервовпо 24 банки в каждом и 4 ящика овощных консервов по 16 банок в каждом сколько всего банок
Физика
10 лет назад
Автомобиль движeтся по выпуклому мосту с рaдиусом кривизны 100 м. Чему равно центрострeмительное ускорение, eсли скорость aвтомобиля 10 м/с?
Алгебра
10 лет назад
Турист проплив моторним човном проти течії 18 км,а повернувся назад на плоту.Човном турист плив на 4,5 год менше,ніж плотом.Знайдіть швидкість течії, якщо швидкість човна у стоячій воді 15 км/год.