Даны 2 двузначных числа, если 1 цифра 1 числа больше 1 цифры 2 числа и 2 ц3ифра 1 числа меньше 2 цифры 2 числа, то вывсти на экран «да» иначе «нет»
Var a,b:integer;
begin
writeln(Введите два числа через пробел);
read(a,b);
if (a div 10>b div 10) and (a mod 10
else writeln(Нет);
end.
Оцени ответ
