Question

Помогите пожалуйста!!!! Напишите программу на языке Паскаль через цикл repeat, которая вычисляет сумму:а)первых n натуральных чиселб)квадратов первых n натуральных чиселв)всех чётных чисел в диапазоне от 1 до nг)всех двузначных чисел

Answer 1

Программа на языке Паскаль для вычисления суммы

а) Первых n натуральных чисел:

program SumOfNaturalNumbers;
var
  n, i, sum: integer;
begin
  write('Введите значение n: ');
  readln(n);
  sum := 0;
  for i := 1 to n do
  begin
    sum := sum + i;
  end;
  writeln('Сумма первых ', n, ' натуральных чисел: ', sum);
end.

б) Квадратов первых n натуральных чисел:

program SumOfSquares;
var
  n, i, sum: integer;
begin
  write('Введите значение n: ');
  readln(n);
  sum := 0;
  for i := 1 to n do
  begin
    sum := sum + i * i;
  end;
  writeln('Сумма квадратов первых ', n, ' натуральных чисел: ', sum);
end.

в) Всех четных чисел в диапазоне от 1 до n:

program SumOfEvenNumbers;
var
  n, i, sum: integer;
begin
  write('Введите значение n: ');
  readln(n);
  sum := 0;
  for i := 1 to n do
  begin
    if i mod 2 = 0 then
    begin
      sum := sum + i;
    end;
  end;
  writeln('Сумма всех четных чисел в диапазоне от 1 до ', n, ': ', sum);
end.

г) Всех двузначных чисел:

program SumOfTwoDigitNumbers;
var
  i, sum: integer;
begin
  sum := 0;
  for i := 10 to 99 do
  begin
    sum := sum + i;
  end;
  writeln('Сумма всех двузначных чисел: ', sum);
end.

Вы можете скопировать каждую программу в среду разработки Паскаля и запустить, чтобы получить результат.

Answer 2

а) Первые n натуральных чисел можно вычислить следующим образом:

program SumOfNumbers;
var
  n, i, sum: integer;
begin
  writeln('Введите число n:');
  readln(n);
  
  sum := 0;
  for i := 1 to n do
  begin
    sum := sum + i;
  end;
  
  writeln('Сумма первых ', n, ' натуральных чисел равна ', sum);
end.

б) Квадраты первых n натуральных чисел можно вычислить след