Question

Составить программу для нахождения суммы последовательности чисел произвольного диапазона(паскаль)

Answer 1

program NT;

var  i, s, n:integer;

begin

writeln('vvedi n');

readln(n);

s:=0;

for i:=1 to n do begin x:=-10+random(200); s:=s+x; end;

writeln('s=',s);

end.

 

 

Answer 2

Для создания программы нахождения суммы последовательности чисел в произвольном диапазоне на языке программирования Pascal, вы можете использовать следующий код:

pascalCopy code
program SumOfRange;
var
  startNum, endNum, sum, i: integer;
begin
  // Ввод начального и конечного чисел диапазона
  writeln('Введите начальное число диапазона: ');
  readln(startNum);
  writeln('Введите конечное число диапазона: ');
  readln(endNum);

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

  // Вычисление суммы чисел в заданном диапазоне
  for i := startNum to endNum do
  begin
    sum := sum + i;
  end;

  // Вывод результата
  writeln('Сумма чисел в заданном диапазоне [', startNum, ' - ', endNum, '] равна: ', sum);
end.

Эта программа позволяет пользователю ввести начальное и конечное число диапазона, после чего она вычисляет сумму всех целых чисел в этом диапазоне и выводит результат на экран.