Var i,p:real;
begin
i:=0.1;
p:=1;
while (i<=10) do
begin
p:=p*(1+sin(pi*i/180));
i:=i+0.1;
end;
writeln ('Rezultat: ',p);
readln;
end.
Количество информации = log(2)16 = 4 бита (2^4 = 16).
Смотри вложение
...........................
Ответ : Страны на континенте америка
6 букв
1)A
2)M
3)A
4)Z
5)O
6)N
слово:AMAZON
что такое amazon можете в интернете поискать