Question

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

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.

Answer 2

Программа на языке Паскаль, использующая оператор for, для нахождения суммы всех целых чисел от a до b (включительно):

program SumOfIntegers;
var
  a, b, sum, i: integer;
begin
  // Вводим значение a и b
  writeln('Введите значения a и b:');
  readln(a, b);
  
  // Инициализируем сумму нулем
  sum := 0;
  
  // Выполняем цикл от a до b
  for i := a to b do
  begin
    // Добавляем текущее число к сумме
    sum := sum + i;
  end;
  
  // Выводим сумму
  writeln('Сумма всех целых чисел от ', a, ' до ', b, ' равна ', sum);
end.

Пример использования программы: ``` Введите значения a и b: 1 5 Сумма всех целых чисел от 1 до 5 равна 15 ```

В данной программе сначала происходит ввод двух целых чисел a и b. Затем инициализируется переменная sum значением 0. Затем выполняется цикл от a до b, в каждой итерации к переменной sum прибавляется текущее число. После окончания цикла выводится результат - сумма всех целых чисел от a до b.