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

1

Ответы и объяснения

2013-11-29T13:33:54+04:00
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.