Question

Пользователь вводит число n. Напишите программу, которая находит сумму ряда S = 1+2+3+...+n.Использовать только rереаt until.помогите, пожалуйста.(в паскале надо )​

Answer 1

var

n, s, i : integer;

begin

 s := 0;

 i := 1;

 writeln('Введите число n: ');

 readln(n);

 repeat

 s := s + i;

 i := i + 1;

 until n < i;

 writeln('Сумма ряда:',s);

end.

Answer 2

Конечно, вот программа на Pascal, которая использует цикл repeat...until, чтобы найти сумму ряда S = 1+2+3+...+n:

pascalCopy code
program SumOfSeries;

var
  n, i, sum: integer;

begin
  sum := 0;
  
  writeln('Введите число n: ');
  readln(n);

  i := 1;
  repeat
    sum := sum + i;
    i := i + 1;
  until i > n;

  writeln('Сумма ряда S = 1+2+3+...+', n, ' равна ', sum);

end.

Программа запрашивает у пользователя число n, затем использует цикл repeat...until, чтобы поочередно добавлять числа от 1 до n к переменной sum, пока i не станет больше n. После завершения цикла программа выводит сумму ряда на экран.