Даны 2 двузначных числа, если 1 цифра 1 числа больше 1 цифры 2 числа и 2 ц3 ифра 1 числа меньше 2 цифры 2 числа, то вывсти на экран "да" иначе "нет"

Question

Информатика

Зинуха

3 августа, 01:10

Даны 2 двузначных числа, если 1 цифра 1 числа больше 1 цифры 2 числа и 2 ц3 ифра 1 числа меньше 2 цифры 2 числа, то вывсти на экран "да" иначе "нет"

+2

Ответы (1)

Знаете ответ на вопрос?

Эннафа · Answer 1

Var a, b:integer;

begin

writeln ('Введите два числа через пробел') ;

read (a, b) ;

if (a div 10>b div 10) and (a mod 10
else writeln ('Нет') ;

end.