Question

Составить программу которая считает сумму первых n - четных натуральных чисел. Паскаль.Срочно .Даю 50 баллов

Answer 1

// PascalABC.NET 3.1, сборка 1195 от 09.03.2016
begin
  var n:=ReadInteger('n=');
  Writeln('Сумма ',Range(2,2*n,2).Sum)
end.

Тестовое решение:
n= 10
Сумма 110

Answer 2

Программа на Pascal для подсчета суммы первых n четных натуральных чисел:

program SumOfFirstNEvenNumbers;

var
  n, i, sum: integer;

begin
  sum := 0;

writeln('Введите количество первых четных чисел:');
  readln(n);

for i := 1 to n do
  begin
    sum := sum + (i * 2);
  end;

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

Эта программа сначала запрашивает у пользователя количество первых четных чисел (n), затем использует цикл для нахождения их суммы. Каждое четное число представлено как удвоенное значение переменной i. Наконец, программа выводит сумму на экран.

Надеюсь, это поможет вам!