![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
reill |
![]()
Сообщение
#1
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 52 Репутация: ![]() ![]() ![]() |
Задали преподователи задачку:
Придумать алгоритм записи девятизначного числа,в котором нет повторяющихся цифр и которое делится без остатка на 11.Число делится на 11,если разность между суммой цифр,стоящих на четных местах суммой -на нечетных делится на 11 или равна нулю. Определить минимальное и максимальное среди этих чисел. Минимальное: 102347586; S1=1+2+4+5+6=18; S2=0+3+7+8=18. Я тут пару часиков посидел вот катала начало: Код program cz; type mn=set of byte; masiv=array[1..9] of string; var cch: masiv; cn: masiv; c:longint; obr: string; i:byte; function mnog(var b: string): boolean; var f,z integer; begin val(b,f,z); for i:=0 to 9 begin if f=i then end; begin randomize; c:=trunc(random*1000000000); str(c,obr); for i:=1 to 9 do begin if odd(i) then begin cn[i]:=copy(obr,i,1); writeln('cn[',i,']:=',cn[i]); end else begin cch[i]:=copy(obr,i,1); writeln('cch[',i,']:=',cch[i]); end end; end. Но чего то мне этот алгоритм не нравится у кого есть другие идеи буду рад обсудить.... Сообщение отредактировано: volvo - 17.12.2004 11:43 |
![]() ![]() |
![]() |
Текстовая версия | 28.07.2025 6:56 |