Var a : Integer; Begin Readln(a); If (a mod 100) div 10>(a mod 10) then Writeln('сотни') else If (a mod 100) div 10<(a mod 10) then Writeln('единицы') else Writeln('одинаково'); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
