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

Найти порядковые номера двух его максимальных и двух минимальных цифр

01.04.2010, 06:46. Показов 1386. Ответов 2
Метки нет (Все метки)

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

допустим число 2314958, надо чтобы выводило:

1 макс число=9, его номер с начала=5, его номер с конца=3;
2 макс число=8, его номер с начала=7, его номер с конца=1;
1 миним число=1, его номер с начала=2, его номер с конца=6;
2 миним число=2, его номер с начала=1, его номер с конца=7

Добавлено через 46 минут
ну решите кто нибудь пожалуйста!!!))))) очень надо!!!!))))))
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.04.2010, 06:46
Ответы с готовыми решениями:

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

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

Нахождение двух максимальных и двух минимальных элементов в массиве
помогите плиз, напишите пожалуйста какой нибудь пример на нахождение двух максимальных элементов в...

Найти наибольшие элементы и их порядковые номера в двух матрицах
Вычислительный процесс выполните с использованием процедуры. В вариантах работы с матрицами...

2
Почетный модератор
64257 / 47557 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
01.04.2010, 07:36 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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
uses crt;
var n,m:longint;
    mn1,mn2,mx1,mx2,kmn1,kmn2,kmx1,kmx2,k,c:byte;
begin
clrscr;
repeat
write('Введите натуральное число из не менее чем 4х цифр n=');
readln(n);
until n>=1000;
mx1:=0;
mn1:=9; kmx1:=1;
m:=n; kmn1:=1;
k:=0;
while m>0 do
 begin
  c:=m mod 10;
  k:=k+1;
  if c>mx1 then
   begin
    mx1:=c;
    kmx1:=k;
   end;
  if c<mn1 then
   begin
    mn1:=c;
    kmn1:=k;
   end;
  m:=m div 10;
 end;
writeln('Первая максимальная цифра=',mx1,' номер с конца=',kmx1,' c начала=',k-kmx1+1);
writeln('Первая минимальная  цифра=',mn1,' номер с конца=',kmn1,' c начала=',k-kmn1+1);
mx2:=0;
mn2:=9; kmx2:=1;
m:=n; kmn2:=1;
k:=0;
while m>0 do
 begin
  c:=m mod 10;
  k:=k+1;
  if (c>mx2)and(c<mx1) then
   begin
    mx2:=c;
    kmx2:=k;
   end;
  if (c<mn2)and(c>mn1) then
   begin
    mn2:=c;
    kmn2:=k;
   end;
  m:=m div 10;
 end;
writeln('Вторая максимальная цифра=',mx2,' номер с конца=',kmx2,' c начала=',k-kmx2+1);
writeln('Вторая минимальная  цифра=',mn2,' номер с конца=',kmn2,' c начала=',k-kmn2+1);
readln
end.
0
0 / 0 / 4
Регистрация: 16.12.2010
Сообщений: 48
13.02.2011, 14:22 3
Puporev, а одним циклом это можно сделать?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.02.2011, 14:22
Помогаю со студенческими работами здесь

Верно ли, что сумма двух первых цифр данного четырехзначного числа равна сумме двух его последних цифр
Помогите решить задачки: 1) Проверить истинность высказывания: &quot;Сумма двух первых цифр данного...

Проверить истинность высказывания: "Сумма двух первых цифр данного четырехзначного числа равна сумме двух его последних цифр"
Проверить истинность высказывания: &quot;Сумма двух первых цифр данного четырехзначного числа равна...

Равна ли сумма двух первых цифр числа сумме двух его последних
Определить, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его...

Четырехзначное число называется «счастливым», если сумма двух первых и двух последних его цифр совпадает
Четырехзначное число называется «счастливым», если сумма двух первых и двух последних его цифр...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru