Напишите программу на языке паскаль к уравнению y=sqrt(x)/x^m+cos(z)

Var
m,y,z,x :real;
begin
writeln('X:=');
read(x);
writeln('z:=');
read(z);
writeln('m:=');
read(m);
y:=sqrt(x)/power(x,m)+cos(z);
write(y);
end.

1. 2^5 = 32. это значения от 0 до 31.
ответ: 31

2. 12 страниц * 32 строки * 64 символа * 25 сотрудников * 8 бит = 4915200 бит = 614400 байт = 600 Кбайт.
ответ: 600 Кбайт

3. 4Х+4 бит > 8Х - 3Кб     

3Кб = 3096б (б - бит или байт в данном случае - не понимаю, но подозреваю,что бит) 

делим обе части неравенства на 4:

    Х+1 бит > 2Х - 768б
    1 бит + 768 бит >2Х -Х
    1 бит + 768 бит >Х
    Х<769 бит
ответ : 768 бит.

4. 64 цвета поместятся в 6 бит. 512 * 128 = 65536 пикселей.
65536 пикселей * 6 бит = 393216 бит = 49152 байт = 48 Кбайт.

ответ : 48 Кбайт

1. Кладем на каждую чашу по 3 монеты. Весы будут либо в равновесии, либо одна чаша перевесит другую.
1а. Если весы будут уравновешены, то в каждой группе из 3 монет имеется фальшивая. 
2а. Проверяем первую группу из 3 монет. Кладем на каждую чашу весов по одной монете. Если весы будут в равновесии, то фальшивая монета - та, которая осталась; если фальшивая монета находится на весах, то взвешивание это покажет (чаша с фальшивой монетой будет выше).
3а. Такие же действия выполняем со второй группой из 3 монет. 
1б. Если при первоначальном взвешивании одна чаша перевесит другую, то обе фальшивые монеты находятся в одной группе монет (в той, которая легче).
2б. Кладем на каждую чашу весов по одной монете из выбранной (более легкой) группы монет. Если весы в равновесии, то обе монеты на весах фальшивые. Если одна чаша перевешивает другую, то фальшивые монеты - одна из тех, что находятся на весах (более легкая) и оставшаяся монета.
Таким образом, две фальшивые монеты можно определить максимум на три взвешивания, минимум - за два.