Вводится единственное трехзначное число. Выведите его минимальную цифру. Пример
Ввод Вывод 123 1
Answers & Comments
STAJLb
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.
Answers & Comments
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.