Var x,a,b,c,d:real;
begin
writeln('Введите число: '); read(x);
a:=sqr(x);
writeln ('Квадрат этого числа = ',a);
b:=sqrt(x);
writeln ('Корень квадратный = ',b);
c:=cos(x);
d:=sin(x);
writeln ('Синус = ', c, ' | Косинус = ',d);
<span>end.</span>
Разделить целую часть числа на триады от младших разрядов к старшим (влево от запятой);
- разделить дробную часть на триады в обратном направлении (вправо от запятой);
- заменить каждую триаду двоичных чисел соответствующей восьмеричной цифрой по таблице, предложенной выше;
- недостающие до триады позиции заполнить незначащими нуями.
Пример:
1010,111112=001010,1111102=12,768
Двойное нажатие по ярлыку установленной программы приведет ее в исполнение.
Я считаю что это рассказ мы узнаём из него много нового
Данный файл мог быть прикреплён каким либо трояном червём или же другой малварью рекомендую вылечить если не поможет удаляй