Вниз  Разбор интересных задач
- 9.07.2011 / 22:31
aNNiMON
  Супервизор

aNNiMON 
Сейчас: Offline
Я понял) Ща напишу код)
Только ты, наверное, ошибся, в примере N = 10, а M = 4.
__________________
 let live

Изменено aNNiMON (9.07 / 22:32) (всего 2 раза)
- 9.07.2011 / 22:34
dejqitz
  Пользователь

dejqitz 
Сейчас: Offline
Вот это другое дело! Алгоритм очень простой, надо просто немного подумать.
- 9.07.2011 / 22:35
dejqitz
  Пользователь

dejqitz 
Сейчас: Offline
aNNiMON (09.07.2011/22:31)
ты, наверное, ошибся, в примере N = 10, а M = 4.
Вот незадача!
- 9.07.2011 / 22:56
XakepPRO
  Модератор форума

XakepPRO 
Сейчас: Offline
dejqitz (09.07.2011/22:35)
Вот незадача!
Япона мать :facepalm:
 
Именно это я и имел ввиду :facepalm:
- 9.07.2011 / 23:12
XakepPRO
  Модератор форума

XakepPRO 
Сейчас: Offline
  1. Var k, n, m:real;
  2.      I:integer:
  3. Begin
  4. Readln(n,m);
  5. Var s:array [1..n] of real;
  6.  
  7. i:=1;
  8. While i<>n+1 do
  9. Begin
  10.   k+=m;
  11.   If k>n then k-=n-k;
  12.   If s[i]<>0 then begin s[i]:=k; i+=1; end:
  13. End;
  14. For i:=1 to n do write(s[i],'; ');
  15. End.
Первое, что пришло в голову.
- 9.07.2011 / 23:13
XakepPRO
  Модератор форума

XakepPRO 
Сейчас: Offline
Стоп. Ашипка. Я забыл кое-что учесть. Лол. :lol:
 
М может быть больше Н :lol:
- 9.07.2011 / 23:15
dejqitz
  Пользователь

dejqitz 
Сейчас: Offline
XakepPRO, Нет не стоит я западло не сделаю. Так где тут мой фри паскаль?
- 9.07.2011 / 23:17
XakepPRO
  Модератор форума

XakepPRO 
Сейчас: Offline
И ещё, чёт поторопился, щас исправлю одну строку. Если не засну.
- 9.07.2011 / 23:17
XakepPRO
  Модератор форума

XakepPRO 
Сейчас: Offline
Ёп, фак :lol:
- 9.07.2011 / 23:19
aNNiMON
  Супервизор

aNNiMON 
Сейчас: Offline
XakepPRO, ахаха, у меня почти такой же код, только на C++ и у меня просто if(value > n) value -= n;
__________________
 let live
Наверх  Всего сообщений: 751
Фильтровать сообщения
Поиск по теме
Файлы топика (34)