Дано двозначне число. Визначити, яка з його цифр більше, перша або друга.
uses crt;
var ch,a,b:integer;
begin
readln(Ch);
a:=ch div 10;
b:=ch mod 10;
if a >b then writeln(a) else writeln(b);
readln;
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Дано двозначне число. Визначити, яка з його цифр більше, перша або друга.
uses crt;
var ch,a,b:integer;
begin
readln(Ch);
a:=ch div 10;
b:=ch mod 10;
if a >b then writeln(a) else writeln(b);
readln;
end.