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

Question

Информатика

Полюша

16 июня, 12:45

Дано натуральное число 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

Галиха 16 июня, 14:51

0

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