Изменить программу так, чтобы находилась самая большая цифра целого числа N, введенного с клавиатуры.
НА ОХОТНИКОВ ЗА БАЛАМИ - БАН!!!!!
Приложения:
![](https://st.uroker.com/files/68a/68a7447a62f01e77185710a02c9ebba6.png)
Ответы
Ответ дал:
1
Ответ:
program z1;
var N,m: integer;
begin
write ('N = ');
readln (N);
m:=N mod 10;
while N <> 0 do
begin
if N mod 10 > m then m:=N mod 10;
N:=N div 10
end;
write ('Самая большая цифра числа ',m);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад