40 строк *60 символов = 2400 символов на одной странице
8 бит = 1 байт
16 Гб= 16* 1024 Мб= 16*1024*1024 кб=16*1024*1024*1024 байт = 17179869184 байта
17179869184 / 2400 = 715878,8 страниц
715878,8 /100 =71583 см
Program func;
const
H = 0.2;
var
i, y, sum: real;
function Func(x:real):real;
begin
Func := x * Cos( (2 * x) );
end;
begin
i := -1;
sum := 0;
while i<=1 do
begin
y := Func(i);
if y>0 then
sum := sum + y;
i := i + H;
end;
end.
1)Б
2)или А или Г
3)В
4)Б
9)
10)А
8)А
7)А
6)А
5) или А или В
Var
S, tmp: real;
n, i: integer;
begin
write('Введите n:');
readln(n);
for i := 1 to n do
begin
tmp := 1 / ((2 * i + 1) * 3);
S := S + tmp;
end;
writeln(S:8:10);
readln;
end.