Вводится единственное трехзначное число. Выведите его минимальную цифру.
Пример
Ввод Вывод
123 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<t) then
writeln('Минимальное цифра = ',p);
if (v < p) and (v<t) then
writeln('Минимальное цифра = ',v);
if (t < p) and (t<v) then
writeln('Минимальное цифра = ',t);
end.
Нет комментариев
Похожие вопросы
Информатика
Помогите пожалуйста 7 класс информатика...
Информатика
Номер 13(а,в,г,д)и 14. Срочно нужно‼️...
Список предметов
