IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Генерация 9 значных чисел...
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 52

Репутация: -  0  +


Задали преподователи задачку:
Придумать алгоритм записи девятизначного числа,в котором нет повторяющихся цифр и которое делится без остатка на 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 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
reill   Генерация 9 значных чисел...   4.04.2003 8:26
GLuk   Re: Генерация 9 значных чисел...   4.04.2003 23:10
reill   Re: Генерация 9 значных чисел...   5.04.2003 11:34
GLuk   Re: Генерация 9 значных чисел...   6.04.2003 20:40
reill   Re: Генерация 9 значных чисел...   7.04.2003 9:36
GLuk   Re: Генерация 9 значных чисел...   7.04.2003 9:46
reill   Re: Генерация 9 значных чисел...   8.04.2003 8:48
reill   Re: Генерация 9 значных чисел...   8.04.2003 8:55
GLuk   Re: Генерация 9 значных чисел...   8.04.2003 9:28
reill   Re: Генерация 9 значных чисел...   8.04.2003 17:21
GLuk   Re: Генерация 9 значных чисел...   8.04.2003 17:27
reill   Re: Генерация 9 значных чисел...   8.04.2003 19:32
GLuk   Re: Генерация 9 значных чисел...   8.04.2003 20:48
Ivs   Re: Генерация 9 значных чисел...   8.04.2003 21:05
GLuk   Re: Генерация 9 значных чисел...   8.04.2003 21:28
reill   Re: Генерация 9 значных чисел...   9.04.2003 8:57
GLuk   Re: Генерация 9 значных чисел...   9.04.2003 9:51
reill   Re: Генерация 9 значных чисел...   9.04.2003 16:02
GLuk   Re: Генерация 9 значных чисел...   9.04.2003 17:17
reill   Re: Генерация 9 значных чисел...   9.04.2003 20:27
GLuk   Re: Генерация 9 значных чисел...   9.04.2003 21:11
reill   Re: Генерация 9 значных чисел...   9.04.2003 23:51
GLuk   Re: Генерация 9 значных чисел...   10.04.2003 9:20
reill   Re: Генерация 9 значных чисел...   10.04.2003 9:40
GLuk   Re: Генерация 9 значных чисел...   10.04.2003 19:29
reill   Re: Генерация 9 значных чисел...   11.04.2003 15:49
GLuk   Re: Генерация 9 значных чисел...   11.04.2003 16:24
reill   Re: Генерация 9 значных чисел...   12.04.2003 1:32
reill   Re: Генерация 9 значных чисел...   12.04.2003 1:34
GLuk   Re: Генерация 9 значных чисел...   12.04.2003 12:59
reill   Re: Генерация 9 значных чисел...   13.04.2003 14:43
GLuk   Re: Генерация 9 значных чисел...   13.04.2003 15:41
reill   Re: Генерация 9 значных чисел...   14.04.2003 16:41
reill   Re: Генерация 9 значных чисел...   16.04.2003 0:27
GLuk   Re: Генерация 9 значных чисел...   19.04.2003 8:19
reill   Re: Генерация 9 значных чисел...   23.04.2003 9:01
GLuk   Re: Генерация 9 значных чисел...   23.04.2003 19:59
reill   Re: Генерация 9 значных чисел...   24.04.2003 8:14


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.03.2024 15:53
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name