всё реально просто!=45=0=45,0
Var
x, cs, tg: real;
begin
Write('Введите число в диапазоне [0..3.14]: ');
Readln(x);
if (x < 0) or (x > 3.14) then Writeln('Число вне диапазона')
else begin
cs := cos(x); tg := tan(x);
if cs > tg then Writeln('cosX > tgX')
else if cs = tg then Writeln('cosX = tgX')
else Writeln('cosX < tgX')
end
end.
Тестовое решение:
Введите число в диапазоне [0..3.14]: 1.58
cosX > tgX
1. Находим количество символов на 1 странице 48*64=3072
2, Умножаем их на количество страниц 3072*4=12288
3. В кодировке КОИ-8 1 символ равен 1 байту, т.е. объем информации равен 12288 байт/1024=12 кб
В кодировке Unicode 1 символ равен 2 байтам, т.е. объем информации равен 24 кб.
Переменная "c" после выполнения этого кода будет: 32