Question

Составить программу на Паскаль, которая рассчитает сумму n-первых нечётных чисел натурального ряда.

Answer 1

Program n_1;

var i, n, s: int64;

begin

   s:=0;

   readln(n);

   for i:=1 to n do s:=s+2*i-1;

   writeln(s);

end.

Answer 2

var

   s : real;

   n, a1, an : integer;

   d : integer;

   

begin

   write('n = ');

   readln(n);

   a1 := 1;

   d := 2;

   an := a1+d*(n-1);

   s := (a1+an)/2*n;

   writeln('S = ', s);

end.