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.
// Форматирование вывода вещественного числа можно поставить как нравится, я выбрал 3:3
// Считал, что доля с участием нуля равна 0%
program Calc;
var a, b: integer;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
writeln(a, '+', b, '=', a + b);
writeln(a, '-', b, '=', a - b);
writeln(a, '*', b, '=', a * b);
if (b = 0) then begin
writeln(a, '/', b, ' не определено');
writeln(a, ' составляет 0% от числа ', b);
end
else begin
writeln(a, '/', b, '=', (a / b):3:3);
writeln(a, ' составляет ', (a / b * 100):3:3, '% от числа ', b);
end;
if (a = 0) then
writeln(b, ' составляет 0% от числа ', a)
else
writeln(b, ' составляет ', (b / a * 100):3:3, '% от числа ', a);
end.
64ГБ ПАМЯТИ ЗАНИМАЕТ БАКЛАЖАН ВИНДОВС
Объяснение: