Question

Найти сумму всех целых чисел от A до B (A>B). В паскале пожалуйста)буду очень благодарен)

Answer 1

Program Z1;
 var
  s,i:integer;
  a,b:real;
Begin
 readln(a,b);
 s:=0;
 for i:=b to a do
 s:=s+i;
writeln(s);
end.

Answer 2

Вот пример программы на языке Паскаль, которая вычисляет сумму всех целых чисел от A до B (где A > B):

pascalCopy code
program SumOfIntegers;

var
  A, B, Sum, i: Integer;

begin
  // Ввод значений A и B
  Write('Введите значение A: ');
  ReadLn(A);
  Write('Введите значение B: ');
  ReadLn(B);

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

  // Вычисление суммы
  for i := B to A do
  begin
    Sum := Sum + i;
  end;

  // Вывод результата
  WriteLn('Сумма всех целых чисел от ', B, ' до ', A, ' равна ', Sum);

  // Ожидание нажатия клавиши перед закрытием окна
  ReadLn;
end.

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

Учтите, что в программе предполагается, что пользователь будет вводить целые числа для A и B. Если ввод могут быть нецелыми числами, вам следует добавить соответствующую обработку ошибок или округление значений.