Прелесть языка PascalABC.NET в том, что мы читаем задачу и параллельно пишем строчку программы, выполняющую все необходимое.
Шутка, конечно, но в данном случае так оно и было.
<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
Range(4,40,4).Select(x->Sqrt(2*x)).Sum.Println
end.
512 байт =0,5 Кбайт
4 Мбайт = 4*2^10 Кбайт =4096 Кбайт=
=4*2^20 байт =4194304 байт =
=4*2^23 бит =33554432 бит
256 бит =256 : 8 байт =32 байта
2048 бит =2^11 бит = 2^11 : 2^13 Кбайт = 1/4 Кбайт =0,25 Кбайта
Var i,n,s:integer;
begin
writeln ('Введите n');
readln(n);
s:=0;
for i:= 1 to n do
begin
S:=s+1/i;
end;
writeln('Сумма равна - ',s);
<span>end.</span>