Question

Помогите составить программу на паскль:даны 2 целых числа а и в найту семму всех натуральных чисел от а до в включительно.

Answer 1

program raf105;

var

 a,b,sum,i: integer;

begin

 write('a = ');

 readln(a);

 write('b = ');

 readln(b);

 for i:=a to b do

   if i > 0 then

     sum:= sum+i;

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

end.

PascalABC 3.4.2

Answer 2

Вот пример программы на Pascal, которая находит сумму всех натуральных чисел от a до b включительно:

bashCopy code
program SumOfNumbers;

var
  a, b, sum: integer;

begin
  writeln('Введите два целых числа:');
  readln(a, b);

  sum := 0;
  for i := a to b do
  begin
    sum := sum + i;
  end;

  writeln('Сумма всех натуральных чисел от ', a, ' до ', b, ' равна ', sum);
  readln;
end.

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