Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

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

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

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

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

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

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

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

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

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

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

3
Puporev
Модератор
52821 / 40632 / 13882
Регистрация: 18.05.2008
Сообщений: 94,236
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
Эксперт С++
5106 / 1544 / 382
Регистрация: 23.01.2011
Сообщений: 3,167
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
27.02.2011, 13:36
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.02.2011, 13:36
Привет! Вот еще темы с ответами:

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

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

Дано натуральное число. Определить, является ли разность его максимальной и минимальной цифр четным числом - Turbo Pascal
2)Дано натуральное число.Определить,является ли разность его максимальной и минимальной цифр четным числом. ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!

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


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

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

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