Delete(краткая del),,,,,,
2^10=1024
2^6=64
1024*64=65536 бит
1 кбит=8 бит
65536/8=8192 кбит
Такой алгоритм называется линейный
Var i,k:integer;
s:real;
begin
k:=2;
for i:=1 to 25 do
begin
s:=s+sqrt(k);
k:=k+2
end;
WriteLn(s)
end.
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