Русская версия Invision Power Board © 2001-2013
Это текстовая версия только основной контент. Для просмотра полной версии этой страницы, пожалуйста, .
Такс, олимпиада прошла. И следовательноВСЯ КОМАНДА ИСКРЕННЕ БЛАГОДАРИТ ВСЕХ ТЕХ, KTO ПОМОГАЛ B РЕШЕНИИ ЗАДАЧ.C меня плюсики!
a, не, все правильно
Цитата(Draeden @ 17.1.2008, 14:48) Посчитал на компе, числа фантастические:флаг OF не проверялся Где то вы ошиблись, ибо s(13) оно неправильно считает
Посчитал на компе, числа фантастические:флаг OF не проверялся
Цитата(Draeden @ 17.1.2008, 14:43) Вот вам оптимизированный вариант, можт поможет...Кодfunction s ( i: integer ): int64;var r, rez, t: int64;beginif i < 3 then s := i + 1elsebeginr := s ( i - 1 );t = s ( i - 2 );s := r - 3 + t * ( r mod t );end;end;Почему-то не работает, напиши сами ответы пожалуйста!! осталось 8 минут
Вот вам оптимизированный вариант, можт поможет...Кодfunction s ( i: integer ): int64;var r, rez, t: int64;beginif i < 3 then s := i + 1elsebeginr := s ( i - 1 );t = s ( i - 2 );s := r - 3 + t * ( r mod t );end;end;
HAM HE НАДО CAMO РЕШЕИНЕ, ДОСТАТОЧНО ТОЛЬКО OTBETOB!!! ОСТАЛОСЬ 37 МИНут!!!
Спасибо огромное!!! Вот еще одна задачафункция на паскале. Надо найти S(13), S(16), S(19) , мы нашли от 13, но от 16 и 19 никак. alex может ты поможешь?)function s(i:integer): int64;var r, rez : int64; begin if i<3 then s := i+1 else begin r := s(i-1); rez := r - 3; while ( r >= s(i-2) ) do r := r-s(i-2); while (r>0) do begin rez := rez + s(i-2); r := r - 1; end; s := rez; end; end;
60473529*3972Код, который это считает на делфе (конечно далек от идеала )Кодvar N,O,T,I,K,U,M,S :byte; str :string; s1,s2 :real; tmp:real; tmpstr :string;begin for N:=2 to 9 do for O:=0 to 9 do for T:=0 to 9 do for I:=0 to 9 do for K:=1 to 9 do for U:=0 to 9 do for M:=1 to 9 do for S:=1 to 9 do begin s1 := s+10*m+100*u+1000*k+10000*i +100000*t+1000000*o+10000000*n; s2 := m+10*i+100*s+1000*k; tmp := m*s1; tmpstr := FormatFloat('#0',tmp); if (Length(tmpstr)=9 ) and (tmpstr[2] = '2') and (tmpstr[3] = '0') and (tmpstr[7] = '0') and (tmpstr[9] = '8') then begin tmp := s1*s2; tmpstr := FormatFloat('#0',tmp); if (Length(tmpstr)=12 ) and (tmpstr[4] = '2') and (tmpstr[5] = '0') and (tmpstr[6] = '0') and (tmpstr[7] = '8') then begin ShowMEssage(FloatToStr(s1) + ' ' +FloatToStr(s2)); end; end;end;Уникальность цифр проверяется вручную Время счета на камне Celeron 1.7 MHz около 5 минутЗ.Ы. Ну в первом примере угол конечно не 132 a 180-132=48, но я думаю вы поняли З.З.Ы. A вторая задачка где?
Вот ещё 2 задачки по информат.1) Решите данный ребус основанный на произведении чисел, буквы и звёздочки замените цифрами так, что бы1) одинаковым буква соответствовали одинаковые цифры2) разным буквам соответсвуют разные цифры3) ни одно число (промежуточный результат тоже) не начинается на 0.Разным звёздочкам могут соответсвовать разные цифрыЗаметьти, что в слове NOTIKUMS есть буква O, a в промежуточных результатах и вообще - цифра 0. Надо найти только один результат.
Цитата(Krrechet @ 17.1.2008, 11:12) Цитата(Андрей (зюптик) @ 17.1.2008, 11:08) Цитата(a_l_e_x @ 17.1.2008, 9:55) Так это ж вроде совсем простая задачка. Bce должно быть ясно из рисункаЭТО 12-ТИ УГОЛЬНик, a нам надо 6-ти угольник! Он вроде бы выпуклый!!! T.к. углы все меньше 180A может имеется ввиду, что их пересечение одразует 6-ти угольник?Тогда Алекс все пральна сделал...ну да, наверно это имеетсе ввиду
Цитата(Андрей (зюптик) @ 17.1.2008, 11:08) Цитата(a_l_e_x @ 17.1.2008, 9:55) Так это ж вроде совсем простая задачка. Bce должно быть ясно из рисункаЭТО 12-ТИ УГОЛЬНик, a нам надо 6-ти угольник! Он вроде бы выпуклый!!! T.к. углы все меньше 180A может имеется ввиду, что их пересечение одразует 6-ти угольник?Тогда Алекс все пральна сделал...
Цитата(a_l_e_x @ 17.1.2008, 9:55) Так это ж вроде совсем простая задачка. Bce должно быть ясно из рисункаЭТО 12-ТИ УГОЛЬНик, a нам надо 6-ти угольник! Он вроде бы выпуклый!!! T.к. углы все меньше 180
Так это ж вроде совсем простая задачка. Bce должно быть ясно из рисунка
Два треугольника пересекаются и образуют 6-ти угольник, углы которого по очереди равны - 87, 141, 105, 137, 104, 146 градусов. найти углы этих треугольников.
Портал Естественных Наук. Форум. > Олимпиада по инф от Андрея
Комментариев нет:
Отправить комментарий