Даны два целых двузначных числа. Верное ли, что все цифры первого числа больше соответствующих цифр второго числа? Написать программу для Pascal
Даны два целых двузначных числа. Верное ли, что все цифры первого числа больше соответствующих цифр второго числа?
Написать программу для Pascal
Гость
Ответ(ы) на вопрос:
Гость//Pascal ABC.NET 3.2 сборка 1318
Var
a,b:integer;
begin
readln(a,b);
if (a mod 10>b mod 10) and (a div 10>b div 10) then writeln('Да') else writeln('Нет');
end.
Пример ввода:
23
12
Пример вывода:
Да
Не нашли ответ?
Похожие вопросы