Найти наименьшую цифру в числе

@trblnda · Регистрация: 13.12.2010

Author24 — интернет-сервис помощи студентам

1)Дано натуральное число n, надо наити наименьшую цифру в числе.
2)В диалоговом режиме вводится некоторое число N (В диапазоне от 1 до 2000). Программа должна вывести числа, определенные заданием в виде нескольких колонок, выровненных по правому краю. Все числа от 1 до N натуральные. Надо Распечатать все числа от 1 до N, у которых есть хотя бы один двухзначный делитель (не равный числу).
помогите плизз очень надо!

@Dekio · 13.12.2010, 18:48

Pascal    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program Dekio;
var
min,i :integer;
begin
writeln('Введите число');
readln(i);
min:=i;
repeat
if i mod 10 < min then
min :=i mod 10;
i:=i div 10;
until i=0;
writeln('Наименьшая цифра');
writeln(min);
end.

@trblnda · 13.12.2010, 21:08 **[ТС]**

он не во всех случаях работает!
ввожу число 46532 он пишет что наименьшее число -19004!
и еще плизз вторую задачу о4 надо!

@SuPeR XaKer · 13.12.2010, 21:13

тип longint

@Dekio · 13.12.2010, 21:16

Введите число
46532
Наименьшая цифра
2

что не работает?
у меня во всех случаях правильный ответ получается

@SuPeR XaKer · 13.12.2010, 21:18

Dekio
в TP

integer -32768..32767

@Dekio · 13.12.2010, 21:20

у меня Pascal abc, не учел)
поменяйте на longint и тогда все норм.

@SuPeR XaKer · 13.12.2010, 21:22

кстати -2345
наименьшая цифра
-2345

Не по теме:

это что то смущает

@Dekio · 13.12.2010, 21:26

тогда так)

Pascal    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program Dekio;
var
i :longint;
min :integer;
begin
writeln('Введите число');
readln(i);
i:=abs(i);
min:=i;
repeat
if i mod 10 < min then
min :=i mod 10;
i:=i div 10;
until i=0;
writeln('Наименьшая цифра');
writeln(min);
end.

Добавлено через 47 секунд

Сообщение от SuPeR XaKer

это что то смущает

больше нет)

@trblnda · 16.12.2010, 11:09 **[ТС]**

А второе как?
2)В диалоговом режиме вводится некоторое число N (В диапазоне от 1 до 2000). Программа должна вывести числа, определенные заданием в виде нескольких колонок, выровненных по правому краю. Все числа от 1 до N натуральные. Надо Распечатать все числа от 1 до N, у которых есть хотя бы один двухзначный делитель (не равный числу).

@Dekio · 16.12.2010, 15:41

Pascal    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
for i:=1 to n do
begin
t:=false;
for j:=10 to 99 do
if i mod j=0 then
t:=true;
if t=true then
writeln(i);
end;

@trblnda · 21.12.2010, 16:50 **[ТС]**

спасибо!

@Евгения1 · 19.05.2013, 17:38

а как это же самое будет на языке с++, не подскажете?

Новые блоги и статьи Все статьи Все блоги /
Async/await в TypeScript run.dev 06.04.2025 Асинхронное программирование — это подход к разработке программного обеспечения, при котором операции выполняются независимо друг от друга. В отличие от синхронного выполнения, где каждая последующая. . .	Многопоточность в C#: Синхронизация потоков UnmanagedCoder 06.04.2025 Многопоточное программирование стало неотъемлемой частью разработки современных приложений на C#. С появлением многоядерных процессоров возможность выполнять несколько задач параллельно значительно. . .	TypeScript: Классы и конструкторы run.dev 06.04.2025 TypeScript, как статически типизированный язык, построенный на основе JavaScript, привнес в веб-разработку новый уровень надежности и структурированности кода. Одним из важнейших элементов этой. . .	Многопоточное программирование: Rust против C++ golander 06.04.2025 C++ существует уже несколько десятилетий и его поддержка параллелизма постепенно наращивалась со временем. Начиная с C++11, язык получил стандартную библиотеку для работы с потоками, а в последующих. . .	std::vector в C++: от основ к оптимизации производительности NullReferenced 05.04.2025 Для многих программистов знакомство с std::vector происходит на ранних этапах изучения языка, но между базовым пониманием и подлинным мастерством лежит огромная дистанция. Контейнер std::vector. . .
Реляционная модель и правила Кодда: фундамент современных баз данных Codd 05.04.2025 Конец 1960-х — начало 1970-х годов был периодом глубоких трансформаций в области хранения и обработки данных. На фоне растущих потребностей бизнеса и правительственных структур существовавшие на тот. . .	Асинхронные операции в Django с Celery py-thonny 05.04.2025 Разработчики Django часто сталкиваются с проблемой, когда пользователь нажимает кнопку отправки формы и. . . ждёт. Секунды растягиваются в минуты, терпение иссякает, а интерфейс приложения замирает. . . .	Использование кэшей CPU: Максимальная производительность в Go golander 05.04.2025 Разработчикам хорошо известно, что эффективность кода зависит не только от алгоритмов и структур данных, но и от того, насколько удачно программа взаимодействует с железом. Среди множества факторов,. . .	Создаем Telegram бот на TypeScript с grammY run.dev 05.04.2025 Одна из его самых сильных сторон Telegram — это интеграция ботов прямо в экосистему приложения. В отличие от многих других платформ, он предоставляет разработчикам мощный API, позволяющий создавать. . .	Паттерны распределённых транзакций в Event-Driven микросервисах ArchitectMsa 05.04.2025 Современные программные системы всё чаще проектируются как совокупность взаимодействующих микросервисов. И хотя такой подход даёт множество преимуществ — масштабируемость, гибкость, устойчивость к. . .

@trblnda 2 / 2 / 0 Регистрация: 13.12.2010 Сообщений: 7

	Найти наименьшую цифру в числе 13.12.2010, 15:08. Показов 23543. Ответов 12 Метки нет (Все метки) 1)Дано натуральное число n, надо наити наименьшую цифру в числе. 2)В диалоговом режиме вводится некоторое число N (В диапазоне от 1 до 2000). Программа должна вывести числа, определенные заданием в виде нескольких колонок, выровненных по правому краю. Все числа от 1 до N натуральные. Надо Распечатать все числа от 1 до N, у которых есть хотя бы один двухзначный делитель (не равный числу). помогите плизз очень надо! 1

@trblnda 2 / 2 / 0 Регистрация: 13.12.2010 Сообщений: 7
	13.12.2010, 21:08 [ТС]
	он не во всех случаях работает! ввожу число 46532 он пишет что наименьшее число -19004! и еще плизз вторую задачу о4 надо! 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	13.12.2010, 21:13
	тип longint 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,375 Записей в блоге: 1
	13.12.2010, 21:16
	Введите число 46532 Наименьшая цифра 2 что не работает? у меня во всех случаях правильный ответ получается 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	13.12.2010, 21:18
	Dekio в TP integer -32768..32767 1

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,375 Записей в блоге: 1
	13.12.2010, 21:20
	у меня Pascal abc, не учел) поменяйте на longint и тогда все норм. 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	13.12.2010, 21:22
	кстати -2345 наименьшая цифра -2345 Не по теме: это что то смущает 0

@trblnda 2 / 2 / 0 Регистрация: 13.12.2010 Сообщений: 7
	16.12.2010, 11:09 [ТС]
	А второе как? 2)В диалоговом режиме вводится некоторое число N (В диапазоне от 1 до 2000). Программа должна вывести числа, определенные заданием в виде нескольких колонок, выровненных по правому краю. Все числа от 1 до N натуральные. Надо Распечатать все числа от 1 до N, у которых есть хотя бы один двухзначный делитель (не равный числу). 0

@trblnda 2 / 2 / 0 Регистрация: 13.12.2010 Сообщений: 7
	21.12.2010, 16:50 [ТС]
	спасибо! 1

@Евгения1 0 / 0 / 0 Регистрация: 05.05.2013 Сообщений: 10
	19.05.2013, 17:38
	а как это же самое будет на языке с++, не подскажете? 0