2 / 2 / 4
Регистрация: 10.11.2013
Сообщений: 140
1

Найти разницу между максимальной и минимальной цифрами числа 509

06.11.2014, 15:30. Показов 1991. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста найти разницу между максимальной и минимальной цифрами числа 509, заранее благодарен.

Вот мой код:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
{Ученик одной из школ для одаренных детей, учившийся на одни пятерки, прейдя домой из школы,
принялся за выполнение домашнего задания. Подойдя к решению задачи по математике, он не смог решить задачу.
По условию, которой дано: вывести разницу между максимальной и минимальной цифрами числа. Число,
участвующее в задаче - x. В диапазоне (0<x<1000). Помогите ему решить данную задачу.
Ввод
Исходный файл содержит целое число х.
Вывод
В выходной файл вывести разницу между максимальной и минимальной цифрами.
Если число вышло за диапазон то тогда нужно его прировнять к ближайшему числу, лежащему в диапазоне.
Если число состоит из одинаковых чисел, то за разницу принять значение нуля.
Пример
z1.in
509
z1.out
9}
Program CPC_2_2;
uses crt;
var
  a:array[1..1000] of real;
  i,n:LongInt;
  min,max,s:real;
  f_in,f_out:text;
Begin
  assign(f_in,'z1.in');
  reset(f_in);
  assign(f_out,'z1.out');
  rewrite(f_out);
  readln(f_in,n);
  randomize;
  for i:=1 to n do
  begin
  a[i]:=random(510);
  end;
    min:=a[1];
  for i:=2 to n do
    if min>a[i] then min:=a[i];
          max:=a[1];
    for i:=2 to n do
    if max<a[i] then  max:=a[i];
  begin
   s:=max-min;
   write(f_out,'Разница между максимальной и минимальной цифрами = ',s:1:0);
  end;
  writeln ('Программа Завершена!');
  close(f_in);
  close(f_out);
End.
Вложения
Тип файла: rar files.rar (169 байт, 1 просмотров)
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.11.2014, 15:30
Ответы с готовыми решениями:

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

Найти сумму компонент, стоящих между минимальной и максимальной
Задан числовой файл F. Найти сумму компонент, стоящих между минимальной и максимальной. Записать в...

Найти сумму компонент, стоящих между минимальной и максимальной
Задан числовой файл F. Найти сумму компонент, стоящих между минимальной и максимальной. Записать в...

Найти сумму компонент, стоящих между минимальной и максимальной
Задан числовой файл F . Найти сумму компонент, стоящих между минимальной и максимальной. Заменить...

1
1646 / 1075 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
06.11.2014, 15:50 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Var
  x : Integer;
  min,max : Byte;
Begin
  x:=509; min:=10; max:=0;
  While x>0 do
  Begin
    If (x mod 10)>max then max:=(x mod 10);
    If (x mod 10)<min then min:=(x mod 10);
    x:=x div 10;
  end;
  Writeln(max-min);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.11.2014, 15:50
Помогаю со студенческими работами здесь

Найти сумму компонент файла, стоящих между минимальной и максимальной
Задан числовой файл F. Найти сумму компонент,стоящих между минимальной и максимальной. Заменить...

Файлы прямого доступа. Найти сумму компонент, стоящих между минимальной и максимальной
Задан числовой файл F. Найти сумму компонент, стоящих между минимальной и максимальной. Записать в...

Найти квадрат суммы максимальной и минимальной цифр заданного числа
дано натуральное число n найти квадрат суммы максимальной и минимальной цифр, как решить хз

Найти и распечатать произведение максимальной и минимальной компонент файла
Сформировать файл F целого типа. Найти и распечатать произведение максимальной и минимальной...


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

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

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