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

@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

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

Новые блоги и статьи Все статьи Все блоги /
Контейнеризация React приложений с Docker Reangularity 03.04.2025 Контейнеризация позволяет упаковать приложение со всеми его зависимостями в автономный контейнер, который можно запустить на любой платформе с установленным Docker. Это существенно упрощает процессы. . .	Свой попап в SwiftUI mobDevWorks 03.04.2025 SwiftUI, как декларативный фреймворк от Apple, предоставляет множество инструментов для создания пользовательских интерфейсов. В нашем распоряжении есть такие API как alerts, popovers, action sheets. . .	Антипаттерны микросервисной архитектуры ArchitectMsa 03.04.2025 Хорошо спроектированная микросервисная система может выдержать испытание временем, оставаясь гибкой, масштабируемой и устойчивой к большинству проблем. Такая архитектура обладает высоким уровнем. . .	std::mutex в C++: Советы и примеры использования bytestream 03.04.2025 std::mutex - это механизм взаимного исключения, который гарантирует, что критический участок кода выполняется только одним потоком в каждый момент времени. Это простое, но могущественное средство. . .	Не удержался от оценки концепции двигателя Стирлинга. Hrethgir 03.04.2025 Сколько не пытался - она выдавала правильные схемы, причём случайно рисовала горячие области в середине, холодные по краям, трубки с краёв в низ и магнит в соединяющей, но при этой выдавала описание. . .
Метод с двумя буферами (или double buffering) или ping-pong buffering Hrethgir 02.04.2025 Из ответов LM модели. Метод, который предполагает использование двух массивов для хранения промежуточных результатов сложения векторов, обычно применяется в сценариях, где необходимо минимизировать. . .	На любовном киберфронте Alexander-7 01.04.2025 Недавно на одном малоизвестном сайте знакомств мною заинтересовалась девушка: «Текст немного странный. Но, судя по адресу почты, иностранка», – подумал я. Поколебавшись пару суток, я ответил ей:. . .	Как работает Node.js изнутри run.dev 29.03.2025 Node. js изменил подход к разработке веб-приложений, позволив использовать JavaScript не только на стороне клиента, но и на сервере. Созданный в 2009 году Райаном Далем, этот открытый,. . .	Моки в Python: Mock Object Library py-thonny 29.03.2025 Тестирование кода требует особого подхода, когда речь идёт о компонентах, взаимодействующих с внешним миром. Мы часто сталкиваемся с непредсказуемостью HTTP-запросов, чтением данных из базы или. . .	JavaScript: Управление памятью и улучшение производительности run.dev 29.03.2025 В отличие от низкоуровневых языков программирования, JavaScript не требует ручного выделения и освобождения памяти. Здесь работает автоматический сборщик мусора, который определяет, какие объекты. . .

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

	Найти наименьшую цифру в числе 13.12.2010, 15:08. Показов 23537. Ответов 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