1 / 1 / 0
Регистрация: 28.11.2009
Сообщений: 85
1

Определить порядковые номера максимальной и минимальной цифр числа

05.12.2009, 22:47. Показов 2951. Ответов 4
Метки нет (Все метки)

Здравствуйте,помогите составить программу на паскале.
Дано натуральное число,в котором все цифры различны.Определить порядковые номера его максимальной и минимальной цифр,считая номера от конца числа.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.12.2009, 22:47
Ответы с готовыми решениями:

Найти порядковые номера максимальной и минимальной цифры
здравствуйте)))) тут одну задачу никак не могу решить, помогите плиз))) Дано натуральное число,...

Определить порядковые номера максимальной и минимальной цифр числа
Здравствуйте! Решите, пожалуйста, следующую задачу с помощью Matlab-а. Дано натуральное число, в...

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

Определить, является ли сумма максимальной и минимальной цифр числа четной
Здравствуйте. Как написать программу, используя цикл for? Дано натуральное число. Определить,...

4
Платежеспособный зверь
8748 / 4181 / 1606
Регистрация: 28.10.2009
Сообщений: 11,320
05.12.2009, 23:01 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var
n:longint;
nmax,nmin,max,min,nom,temp:integer;
begin
readln(n);
min:=10;
max:=-1;
repeat
inc(nom);
temp:=n mod 10;
if temp>max then
begin
max:=temp;
nmax:=nom;
end;
if temp<min then
begin
min:=temp;
nmin:=nom;
end;
n:=n div 10;
until n=0;
writeln('max=',max,' nomer=',nmax);
writeln('min=',min,' nomer=',nmin);
writeln;
end.
1
1 / 1 / 0
Регистрация: 28.11.2009
Сообщений: 85
05.12.2009, 23:16  [ТС] 3
спасибо огромное!!!!!!
0
0 / 0 / 0
Регистрация: 23.10.2016
Сообщений: 3
23.10.2016, 18:12 4
А какая будет программа если нужно от начала числа?
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5994 / 3570 / 2505
Регистрация: 22.11.2013
Сообщений: 10,167
Записей в блоге: 1
23.10.2016, 18:52 5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
23
24
  WriteLn('max=',max,' nomer=',1+nom-nmax);
  WriteLn('min=',min,' nomer=',1+nom-nmin);
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.10.2016, 18:52

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

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

Определить: больше ли сумма максимальной и минимальной цифры чем сумма остальных цифр числа
Дано целое число x (999 &lt; x &lt; 9 000 000). Определить: больше ли сумма максимальной и минимальной...

Произведение минимальной и максимальной цифр числа
Даны три целых положительных числа a, b и c. Найти в каждом числе произведение минимальной и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.