var
a,b:string;
i:integer;
begin
readln(a);
readln(b);
For i:=1 to Length(a) do
if (a[i]='3') then
Begin
Delete(a,i,1);
InSert('e',a,i);
End;
if (a[i]='0') then
InSert('o',a,i);
if (a[i]='1') then
InSert('i',a,i);
if (a[i]='7') then
InSert('t',a,i);
if (a[i]='4') then
InSert('a',a,i);
if (a[i]='5') then
InSert('s',a,i);
end;
if b in a then
writeln('YES')
else
writeln('NO')
end.
C++
# include <iostream>
# include <windows.h>
# include <cmath>
# include <iomanip>
# include <fstream>
using namespace std;
int main()
{
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
unsigned char C;
int kod;
cout << "Введите символ С: ";
cin >> C;
kod = C;
cout << "Код символа '" << C << "': " << kod << endl;
system ("pause");
return 0;
}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
a,b:string;
i:integer;
begin
readln(a);
readln(b);
For i:=1 to Length(a) do
begin
if (a[i]='3') then
Begin
Delete(a,i,1);
InSert('e',a,i);
End;
if (a[i]='0') then
Begin
Delete(a,i,1);
InSert('o',a,i);
End;
if (a[i]='1') then
Begin
Delete(a,i,1);
InSert('i',a,i);
End;
if (a[i]='7') then
Begin
Delete(a,i,1);
InSert('t',a,i);
End;
if (a[i]='4') then
Begin
Delete(a,i,1);
InSert('a',a,i);
End;
if (a[i]='5') then
Begin
Delete(a,i,1);
InSert('s',a,i);
End;
end;
if b in a then
writeln('YES')
else
writeln('NO')
end.
C++
# include <iostream>
# include <windows.h>
# include <cmath>
# include <iomanip>
# include <fstream>
using namespace std;
int main()
{
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
unsigned char C;
int kod;
cout << "Введите символ С: ";
cin >> C;
kod = C;
cout << "Код символа '" << C << "': " << kod << endl;
system ("pause");
return 0;
}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
# include <iostream>
# include <windows.h>
# include <cmath>
# include <iomanip>
# include <fstream>
using namespace std;
int main()
{
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
unsigned char C;
int kod;
cout << "Введите символ С: ";
cin >> C;
kod = C;
cout << "Код символа '" << C << "': " << kod << endl;
system ("pause");
return 0;
}