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