Ответ:
program Friendly;
uses
SysUtils; // для IntToStr
var
a, b, i, pa, pb: LongInt;
sa, sb: string;
f: Boolean;
begin
Write ('A, B = ');
ReadLn (a, b);
sa := IntToStr (a);
sb := IntToStr (b);
f := True;
for i := 0 to 9 do begin
pa := Pos (IntToStr (i), sa);
pb := Pos (IntToStr (i), sb);
if ((pa <> 0) and (pb = 0)) or ((pa = 0) and (pb <> 0)) then begin
f := False;
Break;
end;
end;
if f then
WriteLn ('YES')
else
WriteLn ('NO');
ReadLn;
end.
Нужно умножить стороны треугольника
32=2^5
26<32
5 битов достаточно для кодировки Мульти
2356 книг * 1,25 мб = 2945 мб - объём всех книг
2946 мб / 600 мб = 5 дисков
Ответ 5