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

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

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

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

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

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

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

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

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

3
Puporev
Модератор
54680 / 42101 / 29069
Регистрация: 18.05.2008
Сообщений: 99,353
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
Эксперт С++
5117 / 1555 / 950
Регистрация: 23.01.2011
Сообщений: 3,185
Завершенные тесты: 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

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

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

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


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

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

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