Var x,y:real;
begin
read(x,y);
if (x>0) and (y>0) then write('YES')
else write('NO')
end.
1)(48 *1024 *8) : (64*64*8) = 393216 : 32768 = 12 стр
48 Кбайт = 48*1024*8 = 393 216 бит
64 стр * 64 симв = 4096 симв на 1 стр
2) Емеля? :) Вторая буква - согл, последняя - гласная
8(2^3) символов => каждый символ весит 3 бита
3б*120 = 360 Бит
Вот держи.. Было очень легко.. Надеюсь ты поймёшь как это делать.