// PascalABC.NET 3.3, сборка 1627 от 27.01.2018 // Внимание! Если программа не работает, обновите версию!
begin // вводим строку, перекодируем к нижнему регистру и делим на два слова var a:=ReadlnString.ToLower.ToWords; var (n1,n2):=(a[0].Length,a[1].Length); // длины слов if n1<>n2 then begin Writeln('No'); exit end; for var i:=1 to n1 do begin var p:=Pos(a[0][i],a[1]); if p=0 then begin Writeln('No'); exit end; Delete(a[1],p,1) end; Writeln('Yes') end.
а) 1 КБайт= 2 в степени 10 байт = 2 в степени 13 бит
б) 1Мбайт= 2 в степени 10 Кбайт = 1048576 байт = 2 в степени 20 байт= 2 в степени 23 бит
в)1Гбайт= 2 в степени 10 Мбайт=2 в степени 20 Кбайт= 2 в степени 30 байт= 2 в степени 33 бит
Объяснение:
1 байт= 8 бит= 2 в степени 3
1 Кбайт= 2 в степени (10+3) бит