Другие языки программирования и технологии

Дано 4х число. Найти наименьшую нечетную цифру в числовой записи данного числа. Если вводим 0,то выводится 0.Что не так?

program im2;
var n,a,b,c,d:integer;
begin

readln(n);
a:=n div 1000;
b:=n div 100 mod 10;
c:=(n mod 100) div 10;
d:=n mod 10;

if (a mod 2=0) and (b mod 2=0) and (c mod 2=0) and (d mod 2=0)
then writeln('-----')
else
if (a<=b) and (a<=c) and (a<=d)
then writeln(a)
else
if (b<=a) and (b<=c) and (b<=d)
then writeln(b)
else
if (c<=a) and (c<=b) and (c<=d)
then writeln(c)
else
if (d<=a) and (d<=b) and (d<=c)
then writeln(d);
end.

Вопрос другой программы, но похожей. Также надо найти минимальное нечетное число, но вывести надо количество этих самых нечетных наименьших чисел. Например, ввели 1122, он посчитал, что наименьшее число тут 1 и посчитал их количество - 2. Мне надо примерно с такой структурой ибо задание. Я думала взять за основу этот код, но добавить счетчик, чтобы считать какие цифры наименьшие и их сложить. Но возникла заминка. Подскажите, как реализовать счетчик с примерно таким алгоритмом?
Кстати говоря, это Паскаль.
ДС
Дмитрий Суздалев
43
УЧИСЬ САМА

Дано 4х число. Найти наименьшую нечетную цифру в числовой записи данного числа. Если вводим 0,то выводится 0.Что не так?
в
"Другие языки и технологии", 2 минуты назад
•ответить
Задача на алгоритм Дейкстры
в
"Естественные науки", 7 месяцев назад
•2 ответа
Чат бот, общалка, какая-то хрень в общем
в
"Другие языки и технологии", 7 месяцев назад
•1 ответ
Здравствуйте, пишу техническое задание на базу данных "Люди и место работы".
в
"Программное обеспечение", 9 месяцев назад
•1 ответ
Нужна помощь в нахождении статистики инфляции по некоторым областям за определенные года.
в
"Макроэкономика", 1 год назад
•1 ответ
Найти сумму четных элементов произвольного одномерного массива. Проверьте пожалуйста программу.
в
"Другие языки и технологии", 1 год назад
•1 ответ
Проверьте пожалуйста правильность программы и если есть косяки подскажите, как исправить)
в
"Другие языки и технологии", 1 год назад
•1 ответ
Программа в С++ по теме двумерных массивов.
в
"Другие языки и технологии", 1 год назад
•2 ответа
Найти сумму четных элементов произвольного одномерного массива.
в
"Другие языки и технологии", 1 год назад
•1 ответ
Определить номер члена ряда, величина которого меньше 0,1.
в
"Другие языки и технологии", 1 год назад
•1 ответ
Артём Коваленко
Артём Коваленко
54 463
Лучший ответ
Дмитрий Суздалев Знаете, ваш упрек вообще не в тему. Я не просила решить с нуля за меня программу. Я обосновала свой вопрос тем, что у меня ошибка, я не могу ее найти, при том, что программа работает корректно, не считая пары чисел на которых она сбоит. Касаемо дополнительного вопроса для похожей программы, так я не просила написать этот счетчик за меня. Я просила подсказать, как лучше это реализовать. Вместо того, чтобы тыкать мне в лицо моей историей, что кстати является показателем отсутствия у вас такта, к слову говоря. Ведь большинство вопросов связаны с помощью в нахождении в том или ином вопросе, либо ответе на какой-то вопрос. И я считаю, что вы сейчас оскорбили, так как я не просила все сделать для меня, а воспользовалась функцией данного форума в помощи и советах. Впредь обдумайте свои действия
Дмитрий Суздалев заранее, от этого умнее вы не покажетесь.
Дмитрий Суздалев И Боже! Я задавала вопросы не каждый день и даже не каждую неделю, и даже не каждый месяц, и даже не каждые два! Представляете и такое возможно. Или вы считаете, что задавать вопросы здесь можно раз в 5 лет?)
program im3;
var j,k,s:integer;
begin
write('Число: '); readln(k); s:=10;
repeat j:=k mod 10; if (j<s)and odd(j) then s:=j; k:=k div 10 until k=0;
if s=10 then writeln('нет нечетных цифр') else writeln(s);
end.
УБ
Улан Батырбеков
68 764
Дмитрий Суздалев Простите. Но мне бы хотелось исправить свой код, так как я решаю задачу из сборника по теме ветвления и на сколько поняла, то там надо через if делать. Вот поэтому у меня и возникла заминка.

Похожие вопросы