1. Дано натуральное двух значное число определить будет ли цыфра…

Program p1; Uses crt; Var x: byte; Begin Write ('Введите x, x='); Readln (x); If x mod 10> x div 10 then Writeln ('Число единиц больше числа десятков') else If x mod 10< x div 10 then Writeln ('Число десятков больше числа единиц ') else Writeln ('Число десятков равно числу единиц ') End. Скажите, что за цифры сравниваются во втором задании? Я скину решение Вам в личные сообщения.