| ← Июнь 2016 → | ||||||
|
1
|
2
|
3
|
4
|
5
|
||
|---|---|---|---|---|---|---|
|
6
|
7
|
9
|
10
|
12
|
||
|
13
|
15
|
16
|
17
|
18
|
19
|
|
|
21
|
23
|
24
|
25
|
26
|
||
|
29
|
30
|
|||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 06.06.2016, 21:05 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, maxim387! Код (Pascal) :: выделить код var
a:string;
b:longint;
{рекурсивная функция поиска и удаления минимальной цифры в числе}
function KillMin(a,b:longint):longint;
begin
if a>0 then{пока А больше нуля продолжаем поиск}
{минимальная цифра не совпадает - игнорируем}
if a mod 10<>b then KillMin:=KillMin(a div 10,b)*10+(a mod 10)
{минимальная цифра совпадает - удаляем}
else KillMin:=KillMin(a div 10,b)
{конец рекурсии}
else KillMin:=a
end;
{функция поиска минимальной цифры в числе}
function FindMin(a:longint):longint;
var
b,c:longint;
begin
b:=a mod 10;{пока В минимальная цифра}
c:=a div 10;{остальное число}
while c>0 do
begin
if c mod 10<b then b:=c mod 10;{теперь В новая минимальная}
c:=c div 10;{к следующим цифрам}
end;
FindMin:=KillMin(a,b);{возвращаем результат без минимальной цифры}
end;
begin
{ввод числа и контроль ввода}
repeat
repeat
write('please enter 6 numbers:');
readln(a);
until length(a)=6;{должно быть 6-ть цифр}
b:=0;
{перевод строки в число и контроль повторений цифр}
while(length(a)>0)and(pos(a[1],copy(a,2,length(a)-1))=0)do
begin
b:=b*10+ord(a[1])-ord('0');
delete(a,1,1);
end;
until length(a)=0;{число правильное длина строки равна нулю}
{выводим результат}
writeln('result:',FindMin(FindMin(FindMin(b))));
end.ps:вопросы задавайте в минифорум. Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
