1.Напишите класс, который принимает с клавиатуры двузначное число и проверяет, что больше: само это число или произведение его цифр.
Answers & Comments
Kael
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');
Answers & Comments
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.