Var n,i:integer; s:real;
Begin
write('n='); readln(n);
s:=0;
for i:=1 to (n*2)-1 do
if (i mod 2)<>0 then s:=s+1/i;
writeln('s=',s:0:2);
<span>End.</span>
Ответ:
Дан в приложении.
Объяснение:
Я опирался на теорему Пифагора: в прямоугольном треугольнике квадрат гипотенузы равен сумме квадратов двух катетов.
А для нахождения площади была использована формула Герона:
№ 1.
2^i = N, N = 64
2^i = 64
i = 6 бит
1280 * 6 = 7680 бит
7680 : 8 = 960 байт
№ 2.
38912 бит : 8 = 4864 байт
4864 : 1024 = 4,75 Кбайт
№ 3.
3КБайт = 3 * 1024 = 3072 байт
3072 * 8 = 24576
24576 : 6144 = 4 бит приходится на 1 символ
2^4 = 16 символов содержит алфавит
№ 4.
2^i = 8
i = 3 бит приходится на 1 символ
10 * 40 * 5 * 3 = 6000 бит
6000 : 8 = 750байт
Var i:integer; n,k:real;
begin
n:=10;k:=10;
for i:=1 to 6 do
begin
n:=1.1*n;
k:=k+n;
end;
writeln(k:5:2);
end.
В первой, второй и четвертой записи у переменных отсутствует номер строки (указано просто А)
Третья запись верная