Question

Вычислить сумму первых N чисел натурального ряда. С использованием операторов цикла For-To (или For-Downto), While-Do и Repeat-Until. Паскаль

Answer 1

Const 
c=10; 
var a:array[1..c] of integer; 
n,i,s:integer; 
begin 
writeln('Введите элементы массива'); 
for i:=1 to c do 
read(a[i]); 
writeln('Введите количество первых N чисел'); 
read(n); 
for i:=1 to n do 
s:=s+a[i]; 
writeln('Сумма первых ', n, ' чисел массива = ', s); 
end.

Answer 2

Конечно, давайте рассмотрим пример вычисления суммы первых N чисел натурального ряда на языке программирования Pascal с использованием операторов цикла `for-to`, `while-do` и `repeat-until`.

Использование `for-to`:

program SumCalculationForTo;

var
  N, i, sum: integer;

begin
  write('Введите значение N: ');
  readln(N);

sum := 0;
  for i := 1 to N do
    sum := sum + i;

writeln('Сумма первых ', N, ' чисел: ', sum);
end.

Использование `while-do`:

program SumCalculationWhileDo;

var
  N, i, sum: integer;

begin
  write('Введите значение N: ');
  readln(N);

sum := 0;
  i := 1;
  while i <= N do
  begin
    sum := sum + i;
    i := i + 1;
  end;

writeln('Сумма первых ', N, ' чисел: ', sum);
end.

Использование `repeat-until`:

program SumCalculationRepeatUntil;

var
  N, i, sum: integer;

begin
  write('Введите значение N: ');
  readln(N);

sum := 0;
  i := 1;
  repeat
    sum := sum + i;
    i := i + 1;
  until i > N;

writeln('Сумма первых ', N, ' чисел: ', sum);
end.

В каждом из этих примеров программа запрашивает у пользователя значение N, затем с использованием различных операторов цикла вычисляет сумму первых N чисел натурального ряда и выводит результат. Вы можете выбрать любой из этих подходов в зависимости от ваших предпочтений.