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

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

06.12.2017, 01:36. Просмотров 731. Ответов 2
Метки нет (Все метки)

Найти максимальную и минимальную цифры числа. Верно ли, что данное число заканчивается на них? Нужна программа
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.12.2017, 01:36
Ответы с готовыми решениями:

Верно ли, что данное число заканчивается на свою максимальную цифру?
Найти максимальную цифру числа. Верно ли, что данное число заканчивается на эту...

Дано натуральное число:верно ли, что данное число заканчивается на нечетную цифру.
Дано натуральное число:верно ли, что данное число заканчивается на нечетную...

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

Дано натуральное число.найти первую и последнюю цифры,верно ли что,сумма цифор данного числа равна А
Дано натуральное число.найти первую и последнюю цифры,верно ли что,сумма цифор...

Поменять местами максимальную и минимальную цифры в записи числа х
Поменять местами максимальную и минимальную цифры в записи числа х

2
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4254 / 3085 / 3807
Регистрация: 05.06.2014
Сообщений: 15,492
06.12.2017, 08:05 2
Найти максимальную и минимальную цифры числа

Добавлено через 26 секунд
Верно ли, что данное число заканчивается на свою максимальную цифру?
0
Cyborg Drone
Модератор
5474 / 3293 / 2480
Регистрация: 17.08.2012
Сообщений: 10,586
08.12.2017, 16:54 3
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var n, min, max, d, d1, d2: integer;
begin
  write('n = ');
  readln(n);
  n := abs(n);
  d1 := n mod 10;
  d2 := n mod 100 div 10;
  min := 10;
  repeat
    d := n mod 10;
    n := n div 10;
    if min > d then min := d;
    if max < d then max := d
  until n = 0;
  writeln('Min digit = ', min, ', max digit = ', max);
  if (min = max) or (min = d1) and (max = d2) or (min = d2) and (max = d1)
    then writeln('Number comes to end on these digits')
    else writeln('Number does not come to end on these digits');
  readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.12.2017, 16:54

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

Поменять местами первую минимальную и последнюю максимальную цифры числа
1Поменять местами первую минимальную и последнюю максимальную цифры числа...

Дано 4-х значное натуральное число n.Верно ли,что все 4 цифры числа различны.
Дано 4-х значное натуральное число n.Верно ли,что все 4 цифры числа различны.


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

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

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