Задание:
1. Напишите класс, который принимает с клавиатуры двузначное число и проверяет, что больше: само это число или произведение егоцифр.
Решение:
Uses crt; var a: integer; beginclrscr; if a> (a mod 10)*(a div 10) then writeln ('A bolshe') else if a< (a mod 10)*(a div 10) then writeln ('Proizvedeniye bolshe') else writeln ('Ravni'); end.
Знаете другой ответ?