Вводится единственное трехзначное число. Выведите его минимальную цифру.

Пример

Ввод Вывод

123 1

Question

Информатика

Якуб

13 декабря, 08:17

Вводится единственное трехзначное число. Выведите его минимальную цифру.

Пример

Ввод Вывод

123 1

+1

Ответы (1)

Знаете ответ?

Берта · Answer 1

Varp, v, t, x:integer;

begin

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

readln (x) ;

p:=x div 100;

v: = (x div 10) mod 10;

t: = (x mod 100) mod 10;

if (p < v) and (p
writeln ('Минимальное цифра = ', p) ;

if (v < p) and (v
writeln ('Минимальное цифра = ', v) ;

if (t < p) and (t
writeln ('Минимальное цифра = ', t) ;

end.

Вводится единственное трехзначное число. Выведите его минимальную цифру.ПримерВвод Вывод123 1

Вводится единственное трехзначное число. Выведите его минимальную цифру.

Пример

Ввод Вывод

123 1