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

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

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

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

@Dekio · 13.12.2010, 18:48

Pascal

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

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

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

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

@trblnda 2 / 2 / 0 Регистрация: 13.12.2010 Сообщений: 7
		1
	Найти наименьшую цифру в числе 13.12.2010, 15:08. Показов 23225. Ответов 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 [ТС]	3
	он не во всех случаях работает! ввожу число 46532 он пишет что наименьшее число -19004! и еще плизз вторую задачу о4 надо! 0

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

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

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

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

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

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

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

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