Question

1.Напишите класс, который принимает с клавиатуры двузначное число и проверяет, что больше: само это число или произведение его цифр.

Answer 1

uses crt;
var a:integer;
begin
clrscr;
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.