Задача №2 Размеры шкафа A × B × C. Возможно ли его пронести через дверной проем размерами X × Y?
Входные данные
Даны целые числа A, B, C, X, Y (1 ≤ A, B, C, X, Y ≤ 100)
Выходные данные
Программа должна напечатать строку "YES" , если пронести возможно, "NO" – если нельзя.
Примечание:
1) Примените предыдущую задачу, как вс . То есть выполните сначала упорядочивание значений и только потом сравнивайте. Конечно, возможны другие решения.
2) Если дверной проём совпадает с размерами шкафа, то считается, что шкаф пронести можно.
Sample Input 1:
4 5 6 10 20
Sample Output 1:
YES
Sample Input 2:
4 5 6 3 4
Sample Output 2:
NO

//Pascal ABC.NET v3.1 сборка 1172

Var
 f,s:text;
 st,sp:string;
 i:integer;
 c:char;
begin
 assign(s,'text1.txt');
 reset(s);
 while not Eof(s) do
 begin;
 readln(s,sp);
 st:=st+sp+chr(10)+chr(13);
 end;
 close(s);
 for i:=1 to length(st) div 2 do
  begin
   c:=st[i];
   st[i]:=st[length(st)-i+1];
   st[length(st)-i+1]:=c;
  end;
 assign(f,'text.txt');
 rewrite(f);
 write(f,st);
 close(f);
end.

Текст в файле text1.txt:

Simple text
1And another simple text
2New text

Текст в файле text.txt:
txet weN2
txet elpmis rehtona dnA1
txet elpmiS

1. При использовании палитры из 2^24 цветов для хранения цвета 1 пикселя используется 24 бита = 3 байта.
Пусть количество пикселей в рисунке K, тогда объем памяти, занимаемой одним рисунком = (K*3)/1024 + 128 Кбайт.
X = 8*(K*3/1024 + 128)+2.5*1024
2. При использовании палитры из 2^16 цветов для хранения цвета 1 пикселя используется 16 бита = 2 байта.
Объем памяти, занимаемой одним рисунком = (K*2)/1024 + 128 Кбайт.
X = 20*(K*2/1024 + 128)
8*(K*3/1024 + 128)+2.5*1024 = 20*(K*2/1024 + 128)
К = 65536 (количество пикселей в рисунке)
X = 20*(K*2/1024 + 128) = 20*(65536*2/1024 + 128) Кбайт = 
 20*(128 + 128) Кбайт = 5120 Кбайт = 5120/1024 Мбайт = 5 Мбайт