Дано натуральное число n. Найти минимальную цифру.

Question

Информатика

Анжелика

5 декабря, 22:42

Дано натуральное число n. Найти минимальную цифру.

+4

Ответы (2)

Знаете ответ на вопрос?

Корнейка · Answer 1

Var n, m, max, min:integer;

Begin

write ('Введите число n: ') ; readln (n) ;

max:=-10; min:=10;

While n0 do

Begin

m:=n mod 10;

if m>max then max:=m;

if m
n:=n div 10;

End;

writeln ('Максимальная цифра числа: ', max) ;

writeln ('Минимальная цифра числа: ', min) ;

End.

Хаврония · Answer 2

Хаврония 6 декабря, 02:04

0

N-является цифрой 1.