Информатика, опубликовано 2018-08-22 18:25:31 by Гость
Вводится единственное трехзначное число. Выведите его минимальную цифру. Пример Ввод Вывод 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 writeln(Минимальное цифра = ,p);
if (v writeln(Минимальное цифра = ,v);
if (t writeln(Минимальное цифра = ,t);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на