Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Нужно написать прогу...
Автор: TOPEHTO 10.10.2006 21:34
Цитата
Найти число "счастливых" билетов в катушке, состоящей из 1000000 билетов с шестизначными номерами. "Счастливым" считается билет, у которого суммы трех первых и трех последних цифр совпадают.
Помогите плиз, мож у кого есть....или хотяб ы алгоритм...
...И еще нужна прога которая находит совершенные числа до 100000...Если у кого есть помогите плиз...
...
Автор: volvo 10.10.2006 21:40
В поиск. И та и та программа есть на форуме (Совершенные числа ищи в FAQ-е...)
Автор: TOPEHTO 10.10.2006 22:52
Совершенные числа нашел, а вот с билетами БЕДА...помоги плиз...буду искать, если найду отпишусь...
Автор: volvo 10.10.2006 23:07
Отсюда и ниже читай внимательно:
http://forum.pascal.net.ru/index.php?s=&showtopic=2545&view=findpost&p=22134
Автор: TOPEHTO 11.10.2006 21:08
Слухай помоги плиз...ты можешь мне написать в кратце какой алгоритм в этой проге, (которая 3 числа сравнивает) просто никак не могу разобраться
... ...
Автор: volvo 11.10.2006 21:49
Какие 3 числа? Ты о чем вообще?
Автор: TOPEHTO 11.10.2006 23:55
Погода говорю хорошая... ...
Цитата
function step(x,n:integer): longint;
var i,h:longint;
begin
h:=1;
for i:=1 to n do h:=h*x;
step:=h;
end;
var i,h:longint;
begin
h:=1;
for i:=1 to n do h:=h*x;
step:=h;
end;
Чт делает это проца? никак не могу понял, подска плиз...и желательно если можешь на словах как работает программа(какой у неё алгоритм) со счасливыми билетами...
...
Автор: volvo 12.10.2006 0:18
Цитата
Чт делает это проца?
Это функция, вообще-то... Возводит число X в степень N... Неужели сложно было догадаться?А за разъяснениями по поводу алгоритма - обращайся к автору (если он еще когда-нибудь придет на форум...) Я чужие алгоритмы не объясняю...