Решить : сообщение, записанное буквами 128 символьного алфавита, содержит 30 символов. какой информационный объем оно несет.
123
374
Ответы на вопрос:
// pascalabc.net 3.3, сборка 1625 от 17.01.2018 // внимание! если программа не работает, обновите версию! begin var x: =readreal('x='); var n: =readinteger('n='); // для сборок, начиная с 30.12.2017 writeln('(sin(',x,'))^',n,' = ',sin(x)**n); // для более ранних версий pascalabc.net 3.3 writeln('(sin(',x,'))^',n,' = ',power(sin(x),n)); для всех прочих паскалей var x,t: real; n,z: integer; begin write('x= '); readln(x); write('n= '); readln(n); t: =sin(x); if t=0 then writeln('(sin(',x,'))^',n,' = 0') else begin if n mod 2=0 then z: =1 else z: =sign(t); t: =abs(t); writeln('(sin(',x,'))^',n,' = ',z*exp(n*ln( end; readln end.
Популярно: Информатика
-
yarroslawfd07.11.2021 17:34
-
zhumanovAblai08.05.2023 09:50
-
msSisi117.04.2022 12:37
-
natasha895202.12.2020 18:43
-
k1974508.02.2022 19:29
-
darilinamoo01.03.2022 14:52
-
xastek21.04.2020 14:34
-
yulyaartemowa2016.02.2022 16:18
-
karicristle31302.11.2022 06:03
-
StradasfeR06.02.2023 02:18