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

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

2 / 2 / 0

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

Сообщений: 7

1

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

13.12.2010, 15:08. Показов 22327. Ответов 12

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

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



1

Dekio

Фрилансер

Эксперт С++

5845 / 1226 / 499

Регистрация: 23.11.2010

Сообщений: 3,375

Записей в блоге: 1

13.12.2010, 18:48

2
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.



1

2 / 2 / 0

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

Сообщений: 7

13.12.2010, 21:08

 [ТС]

3

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



0

2857 / 1986 / 788

Регистрация: 23.09.2010

Сообщений: 4,877

13.12.2010, 21:13

4

тип longint



0

Фрилансер

Эксперт С++

5845 / 1226 / 499

Регистрация: 23.11.2010

Сообщений: 3,375

Записей в блоге: 1

13.12.2010, 21:16

5

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

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



0

2857 / 1986 / 788

Регистрация: 23.09.2010

Сообщений: 4,877

13.12.2010, 21:18

6



1

Фрилансер

Эксперт С++

5845 / 1226 / 499

Регистрация: 23.11.2010

Сообщений: 3,375

Записей в блоге: 1

13.12.2010, 21:20

7

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



0

2857 / 1986 / 788

Регистрация: 23.09.2010

Сообщений: 4,877

13.12.2010, 21:22

8

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

Не по теме:

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



0

Dekio

Фрилансер

Эксперт С++

5845 / 1226 / 499

Регистрация: 23.11.2010

Сообщений: 3,375

Записей в блоге: 1

13.12.2010, 21:26

9

тогда так)

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
Посмотреть сообщение

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

больше нет)



0

2 / 2 / 0

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

Сообщений: 7

16.12.2010, 11:09

 [ТС]

10

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



0

Dekio

Фрилансер

Эксперт С++

5845 / 1226 / 499

Регистрация: 23.11.2010

Сообщений: 3,375

Записей в блоге: 1

16.12.2010, 15:41

11
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;



1

2 / 2 / 0

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

Сообщений: 7

21.12.2010, 16:50

 [ТС]

12

спасибо!



1

0 / 0 / 0

Регистрация: 05.05.2013

Сообщений: 10

19.05.2013, 17:38

13

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



0
Источник

Как найти порядковый номер наименьшей цифры числа, введенного с клавиатуры. признак конца ввода-число ноль. ПАСКАЛЬ

Ira Darling



Ученик

(225),
закрыт



12 лет назад

признак конца ввода-число ноль. ПАСКАЛЬ

Дополнен 12 лет назад

найти порядковый номер НАИМЕНЬШЕЙ цифры

Sergey

Профи

(879)


12 лет назад

Здравствуйте

var
a:integer;
n:integer;
min:integer;
minindex:integer;
begin
n:=1;
readln(a);
min:=a;
minindex:=1;
while a<>0 do begin
readln(a);
n:=n+1;
if (a<min)and(a<>0) then begin
min:=a;
minindex:=n;
end;
end;
if n>1 then writeln(minindex,’ eto chislo ‘ ,min) else writeln(‘ Krome nulya net cift’);
readln;
end.

mikel

Профи

(654)


12 лет назад

число вводится по одной циферке или сразу ?
если есть несколько цифр, то выводить порядковые номера всех цифр или только первой, или только последней и т. д. ?

Источник


Главная

Как найти наименьшую цифру в числе (паскаль)?



  •
  • 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)

    Добавить

    Отмена

  • Ваш ответ

    Источник

    program nums;
var
    num,f,k,i: longint;
begin
 write('Введите число:');
 readln(num);
 k:=10;
 i:=0;
 while num>0 do
  begin
   if (num mod 10)<k then
    begin
     k:=num mod 10;
     f:=i;
    end;
   i:=i+1;
   num:=num div 10;
  end;
 writeln('кол-во цифр в числе: ',i);
 writeln('самая наименьшая цифра: ', k);
 writeln('её позиция: ', i-f);
 readln;
end.

    Результат работы программы

    Похожие записи/страницы:

    • Дано натуральное чисто N определить количество цифр в числе , найти самую большую цифру и ее позицию в числе -…
    • Дано натуральное число:а)сколько чётных цифр в данном целом числе;б)верно ли, что в данном числе встречаются цифры А и В…
    • Дано натуральное число сколько раз первая цифра встречается в данном числе – Pascal(Паскаль)
    • Дано натуральное число. Верно ли, что в данном числе нет цифры A? Цифра A вводится с клавиатуры – Pascal(Паскаль)
    • Дано натуральное число. Верно ли, что в нет цифры b? – Pascal(Паскаль)-CF
    • Дано натуральное число: найти количество цифр данного числа, больших А (А вводится с клавиатуры); верно ли, что данное…
    • Дано натуральное число n. Посчитать количество цифр в числе – Pascal(Паскаль)
    • Дано натуральное число.сколько раз первая цифра встречается в данном числе – Pascal(Паскаль)

    Источник

    domointait401

    domointait401

    Вопрос по информатике:

    Как найти наименьшую цифру в числе (паскаль)?

    Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?

    Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок – бесплатно!

    Ответы и объяснения 1

    tharengis224

    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.

    Знаете ответ? Поделитесь им!

    Гость

    Гость ?

    Как написать хороший ответ?

    Как написать хороший ответ?

    Чтобы добавить хороший ответ необходимо:

    • Отвечать достоверно на те вопросы, на которые знаете
      правильный ответ;
    • Писать подробно, чтобы ответ был исчерпывающий и не
      побуждал на дополнительные вопросы к нему;
    • Писать без грамматических, орфографических и
      пунктуационных ошибок.

    Этого делать не стоит:

    • Копировать ответы со сторонних ресурсов. Хорошо ценятся
      уникальные и личные объяснения;
    • Отвечать не по сути: «Подумай сам(а)», «Легкотня», «Не
      знаю» и так далее;
    • Использовать мат – это неуважительно по отношению к
      пользователям;
    • Писать в ВЕРХНЕМ РЕГИСТРЕ.

    Есть сомнения?

    Не нашли подходящего ответа на вопрос или ответ отсутствует?
    Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие
    вопросы в разделе Информатика.

    Трудности с домашними заданиями? Не стесняйтесь попросить о помощи –
    смело задавайте вопросы!

    Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.

    Источник

    Добавить комментарий