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

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Виктор21425
0 / 0 / 0
Регистрация: 06.12.2017
Сообщений: 1
#1

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

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

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

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

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

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

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

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

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

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

Добавлено через 26 секунд
Верно ли, что данное число заканчивается на свою максимальную цифру?
0
Cyborg Drone
Модератор
5491 / 3100 / 1287
Регистрация: 17.08.2012
Сообщений: 10,020
08.12.2017, 16:54 #3
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
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
Привет! Вот еще темы с ответами:

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

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

Дано натуральное четырехзначное число n. Верно ли, что все четыре цифры числа различны - Pascal
Помогите пожалуйста 1)Дано натуральное четырехзначное число n. Верно ли, что все четыре цифры числа различны, как, например, различны все...

Дано натуральное число n (n ≤ 9999). Верно ли, что все четыре цифры числа различны? - Pascal
Дано натуральное число n (n ≤ 9999). Верно ли, что все четыре цифры числа различны?


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

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

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