// 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.
// Внимание! Если программа не работает, обновите версию!
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.
Примеры
stop pots
Yes
aBbC bAc
No
ПароВоз ЗовоПар
Yes
234000 = 2.34×10⁵
0.0045 = 4.5×10⁻³
678 = 6.78×10²
7.302 = 7.302×10⁰
4090 = 4.09×10³
0.0306 = 3.06×10⁻²
К каким типам можно отнести перечисленные ниже данные?
200 - целое, 1 бaйт без знака, 2 байта со знаком
-17 - целое, 1 байт
2305 - целое, 2 байта
5.89 - вещественное
56890 - целое, 2 байта без знака, 4 байта со знаком (3 байта не бывает)
-56890 - целое 4 байта
-32767 - целое, 2 байта
-32769 - целое, 4 байта
2147483648 - целое, 4 байта
{ - символ, байт
7 - символ, байт
Привет - строка, 6 байт ASCII, 12 байт Unicode
1945 год - строка, 8 байт ASCII, от 11 до 16 байт Unicode (в разных стандартах)
-31009 - целое, 2 байта
byte - строка, 4 байта ASCII, от 4 до 8 байт Unicode