w9=edanif345
1)e_w9
w-c09
Объяснение:
var
a,b,max,min:integer;
begin
Write('Введите два целых двухзначных числа: '); Readln(a,b);
if a>b then begin max:=a; min:=b end
else begin max:=b; min:=a end;
if (10*(max mod 10)+(max div 10))>min then Writeln('YES')
else Writeln('NO')
end.
w9=edanif345
1)e_w9
w-c09
Объяснение:
var
a,b,max,min:integer;
begin
Write('Введите два целых двухзначных числа: '); Readln(a,b);
if a>b then begin max:=a; min:=b end
else begin max:=b; min:=a end;
if (10*(max mod 10)+(max div 10))>min then Writeln('YES')
else Writeln('NO')
end.