0 / 0 / 0
Регистрация: 22.03.2013
Сообщений: 27
1

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

23.03.2013, 11:19. Показов 6979. Ответов 3
Метки нет (Все метки)

Дано натуральное число.Определить,является ли разность его максимальной и минимальной цифр четными числами.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.03.2013, 11:19
Ответы с готовыми решениями:

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

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

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

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

3
Фрилансер
3417 / 2814 / 3000
Регистрация: 08.02.2012
Сообщений: 8,493
Записей в блоге: 1
23.03.2013, 12:52 2
Лучший ответ Сообщение было отмечено Kooler как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Var n:integer;
    max,min:integer;
Begin
    write('N = ');readln(n);
    max:=n mod 10;min:=max;
    n:=n div 10;
    While n>0 do
    Begin
      if n mod 10 > max then max:=n mod 10;
      if n mod 10 < min then min:=n mod 10;
      n:=n div 10;
    End;
    writeln((max-min) mod 2 = 0);
    readln;
End.
1
1 / 1 / 1
Регистрация: 25.06.2019
Сообщений: 17
09.07.2019, 14:29 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
  x, max, min, ed: integer;
 
begin
  max := 0;
  min := 0;
  write('Введите число: ');
  read(x);
  x := abs(x);
  while (x <> 0) do
  begin
    ed := x mod 10;
    if (ed > max) then max := ed
    else
    if (ed < max) then min := ed;
    x := x div 10;
  end;
  if ((max - min) mod 2 = 0) then writeln('(+)Разность максимальной и минимальной цифр числа является чётной') 
  else 
    writeln('(-)Разность максимальной и минимальной цифр числа не является чётной');
end.
0
Модератор
9472 / 4797 / 3209
Регистрация: 17.08.2012
Сообщений: 15,033
11.07.2019, 00:13 4
white0prof-, Ваша программа, по сути, представляет собой сплошную алгоритмическую ошибку.
Протокол работы Вашей программыВведите число: 31
(-)Разность максимальной и минимальной цифр числа не является чётной
Программы Ваши, пожалуйста, проверяйте перед тем, как их публиковать.

Моё решение:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  n, d, max, min: integer;
 
begin
  write('n = ');
  readln(n);
  min := 10;
  max := -min;
  repeat
    d := n mod 10;
    n := n div 10;
    if d > max then max := d;
    if d < min then min := d
  until n = 0;
  write('Разность максимальной и минимальной цифр числа ');
  if odd(max - min) then write('не ');
  write('чётная')
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.07.2019, 00:13
Помогаю со студенческими работами здесь

Определить, является ли разность максимальной и минимальной цифр четным числом
uses crt; var num,min,max,flag: longint; begin clrscr; readln (num); min:=num mod...

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

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

Выяснить, является ли разность максимальной и минимальной цифр числа четной.
Выяснить, является ли разность максимальной и минимальной цифр числа четной.


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru