Список форумов ZCon ZCon
Соревнования по программированию
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

ZPCV3 Задача 10
На страницу Пред.  1, 2
 
Начать новую тему   Ответить на тему    Список форумов ZCon -> ZCon 2008
Предыдущая тема :: Следующая тема  
Автор Сообщение
astapoff



Зарегистрирован: 13.02.2007
Сообщения: 70
Откуда: Могилев, Беларусь
СообщениеДобавлено: Сб Мар 22, 2008 11:18 am    Заголовок сообщения: Ответить с цитатой
romul писал(а):
astapoff, пляши Wink

Код:
function code (arg: longword; p: integer; n: longword): longword;
var r: longword;
begin
  r:= 1;
  while (p>=1) do
  begin
    r:=(r*arg) mod n;
    dec(p);
  end;
  result:=r;
end;

var
  e: longword = 35467;
  n: longword = 54031;
  pwd, hash, x: longword;
  name: ShortString;
begin
   Write('Name: ');
   Read(name);
   Write('Password: ');
   Read(pwd);

   hash:= 0;
   for x := 1 to Length(name)-1 do
      hash:=hash+ord(name[x]);

   if (code(pwd, e, n) = hash) then
      WriteLn('Correctly!')
   else
      WriteLn('Not correctly');
end.


Вот и отлично! Еще не проверял работоспособность - времени нет - да и уезжаю я Республиканскую олимпиаду на целую неделю, но лучше, если все тут нормально сделано, то админы пускай опубликуют этот код в тексте задачи или дадут там ссылку на эту тему... Very Happy
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
astapoff



Зарегистрирован: 13.02.2007
Сообщения: 70
Откуда: Могилев, Беларусь
СообщениеДобавлено: Сб Мар 22, 2008 7:54 pm    Заголовок сообщения: Ответить с цитатой
Было бы, конечно, хорошо, если бы опубликовали в условии (или на форуме) пароль, подходящий для первого имени в списке из 50тыс. имен... Чтобы не оставалось сомнений в правильности выбранного курса...
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Turbo
Site Admin


Зарегистрирован: 19.02.2006
Сообщения: 248
СообщениеДобавлено: Вс Мар 23, 2008 2:15 am    Заголовок сообщения: Ответить с цитатой
astapoff писал(а):
Было бы, конечно, хорошо, если бы опубликовали в условии (или на форуме) пароль, подходящий для первого имени в списке из 50тыс. имен... Чтобы не оставалось сомнений в правильности выбранного курса...


Было бы хорошо, если бы вы таки начали решать задачи без подсказок. =)
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
astapoff



Зарегистрирован: 13.02.2007
Сообщения: 70
Откуда: Могилев, Беларусь
СообщениеДобавлено: Вс Мар 23, 2008 10:47 am    Заголовок сообщения: Ответить с цитатой
Turbo писал(а):
astapoff писал(а):
Было бы, конечно, хорошо, если бы опубликовали в условии (или на форуме) пароль, подходящий для первого имени в списке из 50тыс. имен... Чтобы не оставалось сомнений в правильности выбранного курса...


Было бы хорошо, если бы вы таки начали решать задачи без подсказок. =)

Да ладно. Very Happy Просто я (да и большинство) привык, что в олимпиадных задачах есть тесты, хотя бы тривиальные, но они есть. Но Зеленоград и отличается от всех остальных соревнований тем, что задания непредсказуемы Exclamation
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов ZCon -> ZCon 2008 Часовой пояс: GMT + 3
На страницу Пред.  1, 2
Страница 2 из 2

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2005 phpBB Group