Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 11, средняя оценка - 4.91
Lar Lar
0 / 0 / 0
Регистрация: 27.02.2011
Сообщений: 9
#1

дано натуральное число Определить 2 его максимальные цифры - Turbo Pascal

27.02.2011, 13:19. Просмотров 1916. Ответов 3
Метки нет (Все метки)

помогите решить плиз=))
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.02.2011, 13:19
Я подобрал для вас темы с готовыми решениями и ответами на вопрос дано натуральное число Определить 2 его максимальные цифры (Turbo Pascal):

Дано натуральное число N. Записать его цифры в обратном порядке
Помогите, пожалуйста, решить задачу... Условие: Дано натуральное число N....

Дано натуральное число, определить, есть ли в нем цифры а и b
1)Вычислить значение выражения ((...(20^2-19^2)^2-18^2)^2-...-1^2)^2. 2)Дано...

Дано натуральное число.Определить сколько раз в нем встречаются цифры Х и У
2)Дано натуральное число.Определить сколько раз в нем встречаются цифры Х и У.

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

Дано натуральное число. Определить его максимальную и минимальную цифру
2. Дано натуральное число. Определить его максимальную цифру. Определить его...

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

3
Puporev
Модератор
54148 / 41781 / 28888
Регистрация: 18.05.2008
Сообщений: 98,331
27.02.2011, 13:35 #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
uses crt;
var n:longint;
    mx1,mx2:byte;
begin
clrscr;
repeat
write('Введите натуральное число больше 9 n=');
readln(n);
until n>9;
mx1:=0;
while n>0 do
 begin
  if  n mod 10>mx1 then
    begin
     mx2:=mx1;
     mx1:=n mod 10
    end
  else if n mod 10>mx2 then mx2:=n mod 10;
  n:=n div 10;
 end;
writeln('2 максимальные цифры ',mx1,' ',mx2);
readln
end.
0
Ev[G]eN
iOS/Android Developer
Эксперт С++
5115 / 1553 / 950
Регистрация: 23.01.2011
Сообщений: 3,179
Завершенные тесты: 1
27.02.2011, 13:35 #3
вот, но эта находит только 1 максимальную цифру
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
 n, a, b, c, d: integer;
begin
 readln(n);
  if (n>999) and (n<9999) then
   begin
    a:=n mod 10000 div 1000;
    d:=n mod 10;
    c:=n mod 100 div 10;
    b:=n mod 1000 div 100;
   end;
 if (a>b)and(a>c)and(a>b) then
  write(a);
 if (b>a)and(b>c)and(b>d) then
  write(b);
 if (c>a)and(c>b)and(c>d) then
  write(c); 
 if (d>a)and(d>b)and(d>c) then
  write(d);
end.
0
Lar Lar
0 / 0 / 0
Регистрация: 27.02.2011
Сообщений: 9
27.02.2011, 13:36  [ТС] #4
спасибо огромное=)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.02.2011, 13:36
Привет! Вот еще темы с решениями:

Дано натуральное число. Определить произведение его цифр, больше семи
Паскаль!!!!!!!!! Прекратите плодить дубли.

Дано натуральное число. Определить произведение его цифр кратных 3. (Процедуры)
Помогите решить :(

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

Дано натуральное число n. Найти число цифры которого расположены в обратном порядке
дано натуральное число n. Найти число цифры которого расположены в обратном...


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

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

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