Формулировка задачи:
Пользователь вводит натуральное число. Найти минимальную цифру этого числа.
Код к задаче: «Найти минимальную цифру числа»
textual
var
str :string;//натуральное число
min:char;//мин. число
i :byte; //счетчик
begin
writeln('Input number');
readln(str);
min := '9';
for i := 1 to length(str) do
if str[i] < min then
min := str[i];
writeln('Min digit is ',min);
end.
Полезно ли:
8 голосов , оценка 3.625 из 5
Главная
Как найти наименьшую цифру в числе (паскаль)?
-
- 0
-
?
Татьяна Шавергина
Вопрос задан 1 октября 2019 в
5 — 9 классы,
Информатика.
-
Комментариев (0)
Добавить
Отмена
1 Ответ (-а, -ов)
- По голосам
- По дате
-
- 0
-
Var
A:longint;
Min:byte;
Begin
Min:=9;
Write(‘Введите целое число: ‘);
ReadLn(A);
A:=Abs(A);
While A > 0 do
Begin
if A mod 10 < Min then Min:=A mod 10;
A:=A div 10;
End;
WriteLn(‘Min = ‘,Min);
End.
Отмена
Вячеслав Бисерков
Отвечено 1 октября 2019
-
Комментариев (0)
Добавить
Отмена
Ваш ответ
domointait401
Вопрос по информатике:
Как найти наименьшую цифру в числе (паскаль)?
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок — бесплатно!
Ответы и объяснения 1
tharengis224
Var
A:longint;
Min:byte;
Begin
Min:=9;
Write(‘Введите целое число: ‘);
ReadLn(A);
A:=Abs(A);
While A > 0 do
Begin
if A mod 10 < Min then Min:=A mod 10;
A:=A div 10;
End;
WriteLn(‘Min = ‘,Min);
End.
Знаете ответ? Поделитесь им!
Гость ?
Как написать хороший ответ?
Как написать хороший ответ?
Чтобы добавить хороший ответ необходимо:
- Отвечать достоверно на те вопросы, на которые знаете
правильный ответ; - Писать подробно, чтобы ответ был исчерпывающий и не
побуждал на дополнительные вопросы к нему; - Писать без грамматических, орфографических и
пунктуационных ошибок.
Этого делать не стоит:
- Копировать ответы со сторонних ресурсов. Хорошо ценятся
уникальные и личные объяснения; - Отвечать не по сути: «Подумай сам(а)», «Легкотня», «Не
знаю» и так далее; - Использовать мат — это неуважительно по отношению к
пользователям; - Писать в ВЕРХНЕМ РЕГИСТРЕ.
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует?
Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие
вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи —
смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Вот два варианта решения:
1)В первом варианте программа выдает неверный ответ, если в числе есть хотя бы один ноль.
var
a, n, i, min, tmp, m: integer;
begin
m := 1;
read(a);
tmp := a;
n := 0;
min := 10;
while tmp > 0 do
begin
n := n + 1;
if(tmp mod 10 < min) then min := tmp mod 10;
tmp := tmp div 10;
end;
for i := 1 to n do
m := m * 10;
a := a + (min * m);
a := a * 10;
a := a + min;
write(a);
end.
2)Второй вариант с использованием строки:
var
s: string;
i, min: integer;
begin
readln(s);
min := 10;
for i := 1 to length(s) do
if(strtoint(s[i]) < min) then min := strtoint(s[i]);
s := s + inttostr(min);
s := inttostr(min) + s;
writeln(s);
end.
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Как найти наименьшую цифру в числе (паскаль) ? …» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы