Вниз  Разбор интересных задач
- 20.01.2011 / 20:37
XakepPRO
  Пользователь

XakepPRO 
Пробежаться циклом, и посмотреть, сколько раз встречается? Спасибо большое.
- 20.01.2011 / 20:40
Freddy
  Пользователь

Freddy 
Сейчас: Offline
XakepPRO, И цикл я бы записал по-другому, поскольку все чётные числа (кроме 2) не являются простыми, то их можно заведомо отбросить:
  1. for(int i=1000001;i<2000000;i+=2)

- 20.01.2011 / 20:41
XakepPRO
  Пользователь

XakepPRO 
Пятая, так сказать, задача.

Числом-палиндромом называется число, равное своему зеркальному отражению, например, 676, или 9449.

Рассмотрим смешанную систему счисления с основанием — последовательностью, порождаемой произведениями первых простых чисел, то есть { 2, 2*3, 2*3*5, ... }. Младший разряд числа в такой системе счисления должен быть меньше двух, второй — меньше трех, третий — меньше пяти и т. д. Например, число 1221 в данной системе счисления равно числу 1*2*3*5+2*2*3+2*2+1=47 в десятичной системе.

Найдите максимальное число-палиндром в описанной выше смешанной системе счисления, не превышающее числа 2000000000 (запись в десятичной системе счисления).

Ответ запишите в виде целого числа в десятичной системе счисления. Опишите, каким образом был получен ответ.

Срок: до 24(лучше до 23 января). Монеты: 250.
- 20.01.2011 / 22:40
XakepPRO
  Пользователь

XakepPRO 
Тьфу, в массиве ты сразу прибавляешь число повторений.

Насчёт простых чисел.
Это не мой алгоритм (был исходник на компе, я взял). Когда я реализовывал, удавалось ускорить программу в 4 раза.
- 20.01.2011 / 23:12
LPzhelud
  Пользователь

LPzhelud 
Сейчас: Offline
XakepPRO, тебе не кажется, что тебя надо забанить за нечестное участие?
__________________
 Эль Презеденте
- 20.01.2011 / 23:22
XakepPRO
  Пользователь

XakepPRO 
Надо, но 3 я честно решил, а 2 задачи вот здеся Фредди, за что ему спасибо. Это халявная интернет олимпиада, и роли она не играет большой. Я взял оттуда задачи, на рассмотрение.
Введи любую задачу в поиске, и увидишь, что на форумах люди ищут ответы)
Я долгое время не спал, и очень плохо чувствую, поэтому, мне можно. :-D

А результаты я всё равно отправлять не буду (хотя очень хочется).

Изменено XakepPRO (20.01 / 23:24) (всего 1 раз)
- 20.01.2011 / 23:29
LPzhelud
  Пользователь

LPzhelud 
Сейчас: Offline
XakepPRO, А, ну если халявная, решайтее)
__________________
 Эль Презеденте
- 21.01.2011 / 12:26
aNNiMON
  Супервизор

aNNiMON 
Сейчас: Offline
Очень интересная задача, разобраться с форматом JPEG :gg:
__________________
 let live
- 21.01.2011 / 16:19
aleksey
  Пользователь

aleksey 
Сейчас: Offline
Как обещал выкладываю своё решение задачи Сумма на Pascal:
  1. program summa;
  2. var i,k,s,n,j,l:integer;
  3. begin
  4. write('Ââåäèòå ñóììó: ');
  5. readln(s);
  6. if(s>0)and(s<=100000) then begin
  7. l:=1-s;
  8. for i:=s downto l do begin
  9.   for k:=i downto l do begin
  10.   n:=0;
  11.   for j:=k to i do n:=n+j;
  12.     if n=s then write('(',k,',',i,')');
  13.   end;
  14. end;
  15. end
  16. else if(s<0)and(s>=-100000) then begin
  17. l:=-s-1;
  18. for i:=s to l do begin
  19.   for k:=i to l do begin
  20.   n:=0;
  21.   for j:=s to k do n:=n+j;
  22.     if n=s then write('(',s,',',k,')')
  23.     else if n<s then break;
  24.   end;
  25. end;
  26. end
  27. else if s=0 then begin
  28. for i:=0 to 10000 do begin
  29.   if i>0 then write('(',-i,',',i,')')
  30.   else write('(0,0)');
  31. end;
  32. end;
  33. writeln('');
  34. end.

- 27.01.2011 / 14:50
Naik
  Пользователь

Naik 
Сейчас: Offline
задача
есть 11 монет и аптекарьские весы(две чашки). Одна монета немного тяжелей. Надо за три взвешивания найти бракованую монету.

даю 50 монет
Наверх  Всего сообщений: 751
Фильтровать сообщения
Поиск по теме
Файлы топика (34)