Question

Напишите программу, которая вычисляет сумму первых n натуральных чисел. В Паскале через for i:= 1 to do

Answer 1

const l=20;

var a:array[1..l] of integer;

i,n,s:integer;

begin

writeln('Сгенерированный массив: ');

for i:=1 to l do begin

a[i]:=random (101);

write(a[i]:4);

end;

writeln;

s:=0;

writeln('Введите n');

read(n);

for i:=1 to n do

s:=s+a[i];

writeln;

write('Сумма: ',s);

end.

Answer 2

Вот программа на языке Паскаль, которая вычисляет сумму первых n натуральных чисел с использованием цикла for:

pascalCopy code
program SumOfNaturalNumbers;

var
  n, sum, i: Integer;

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

  sum := 0;
  for i := 1 to n do
  begin
    sum := sum + i;
  end;

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

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