Задача: найти самую большую цифру целого числа. В турбо паскаль.
Задача: найти самую большую цифру целого числа. В турбо паскаль.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы