Задача: найти самую большую цифру целого числа. В турбо паскаль.

Program proga;
var a,c,b:integer;
Begin 
readln(a);
c:=0;
while(a>0) do
begin
b:=a mod 10;
a:=a div 10;
if b>c then
c:=b;
end;
writeln(c); 
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.