VPF::Задача с гирями - Форум программистов

Агурца

Дата 20.12.2005, 20:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 20.12.2005

Репутация: нет
Всего: нет

Имеются гири с массами: 1 г, 2 г, ..., N г (N <= 25000). Помогите написать программу, распределяющую эти гири на максимально возможное количество пар так, чтобы суммарный вес гирь в каждой паре выражался простым числом.
Входной файл содержит число N.
В выходном файле выводится список найденных пар.
smile

Snowy

Дата 20.12.2005, 20:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: нет
Всего: 484

Код


var
  i, N: integer;
begin
  Write('Введите N: ', N);
  ReadLn(N);
  for i:=1 to N div 2 do
    WriteLn(i,'тая пара: ', i, 'г и ',N-i+1,'г = ', N+1);
end.

Alcohol

Дата 20.12.2005, 20:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 28.11.2005

Репутация: нет
Всего: нет

Самый примитивный вариант (сразу говорю - не проверял, но должно работать)

Код


var
  i,j, N,s,d,k: integer;
begin
  Write('Введите N: ', N);
  ReadLn(N);
  for i:=1 to N  do begin
    for j:=1 to N do begin
     if not j=i then begin
        s:=i+j;
       k:=0;
      for d:=(s div 2)+1 downto 2 do begin
            k:=s mod d;
            if k=0 then break;
           end;
            if k<>0 then 
           WriteLn(i,'г +',j,'г');
       end;
     end;
   end;
end.

Это сообщение отредактировал(а) Alcohol - 20.12.2005, 21:11

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »