Найти самую большую цифру трехзначного целого числа через паскаль, пожалуйста, заранее...

Question

Найти самую большую цифру трехзначного целого числа
через паскаль, пожалуйста, заранее спасибо

Answer 1

VAR
 n,max:LongInt;
BEGIN
 WriteLn('Введите трехзначное число:');
 ReadLn(n);
 max:=0;
 Repeat
  If (n mod 100)>max then max:=(n mod 100);
  n:=n div 100;
 Until n=0;
 WriteLn('Самое большое число в трехзначном числе: ',max);
 Readln;
END.

Comments

найс решение