........... реванш, музыка, шарнир, кредит
PascalABC.NET 3.3
begin
var N := ReadInteger('Введите N:');
Println('Произведение первых N нечётных чисел равно',
1.Step(2).Take(N).Aggregate(BigInteger(1), (p, x) -> p * x));
Println('Квадраты первых N натуральных чисел:');
1.To(N).Select(x -> x * x).Print;
end.
Пример работы программы:
Введите N: 10
Произведение первых N нечётных чисел равно 654729075
Квадраты первых N натуральных чисел:
1 4 9 16 25 36 49 64 81 100
1) 165 = 19.2; 163 = 25
2) 167 = 15
Program pr;
uses crt;
Var i,j,n,rezult:integer;
Begin
Writeln('Введите n');
readln(n);
for i:=0 to n-1 do
Begin
for j:=1 to n do
Begin
rezult:=i*n+j;
Write(rezult:3,' ');
end;
Writeln;
end;
end.<span>
</span>