Question

Пожалуйста помогите. Нужно в паскале написать программу , которая сложит все натуральные числа в диапазене от a до b. (например от 23 до 74)

Answer 1

Program sum;

Var n,m,i,s: longint;
Begin
write('задайте первый член последовательности: ');
readln(m);
Write('задайте n-ый член последовательности: ');
Readln(n);
s:=0;
For i:=m To n Do
s:=s+i;
writeln('сумма чисел от ',m,' до 'n,' равна: ',s);
Readln;
End.
Тут от m до n

Answer 2

Конечно, я могу помочь вам написать программу на Pascal, которая будет складывать все натуральные числа в заданном диапазоне от `a` до `b`. Вот пример простой программы:

program SumNaturalNumbers;

var
  a, b, i, sum: integer;

begin
  // Введите значения a и b
  write('Введите начальное значение a: ');
  readln(a);

write('Введите конечное значение b: ');
  readln(b);

// Проверка, что a меньше или равно b
  if a > b then
  begin
    writeln('Ошибка: a должно быть меньше или равно b.');
    exit;
  end;

// Инициализация суммы
  sum := 0;

// Сложение натуральных чисел в заданном диапазоне
  for i := a to b do
  begin
    sum := sum + i;
  end;

// Вывод результата
  writeln('Сумма натуральных чисел от ', a, ' до ', b, ' равна: ', sum);

readln;
end.

Программа запрашивает у пользователя значения `a` и `b`, а затем использует цикл `for` для сложения всех натуральных чисел от `a` до `b`. Результат выводится на экран.

Обратите внимание, что программа проверяет условие `a <= b`, чтобы избежать ошибок. Если `a` больше `b`, программа выведет сообщение об ошибке.