9.07.2011 / 22:31 | |
aNNiMON Супервизор Сейчас: Offline
Имя: Витёк Регистрация: 11.01.2010
| Я понял) Ща напишу код) Только ты, наверное, ошибся, в примере N = 10, а M = 4.
__________________
let live Изменено aNNiMON (9.07 / 22:32) (всего 2 раза) |
9.07.2011 / 22:34 | |
dejqitz Пользователь Сейчас: Offline
Имя: Александр Откуда: Ростов на Дону Регистрация: 01.08.2010
| Вот это другое дело! Алгоритм очень простой, надо просто немного подумать.
|
9.07.2011 / 22:35 | |
dejqitz Пользователь Сейчас: Offline
Имя: Александр Откуда: Ростов на Дону Регистрация: 01.08.2010
| aNNiMON (09.07.2011/22:31) ты, наверное, ошибся, в примере N = 10, а M = 4.Вот незадача!
|
9.07.2011 / 22:56 | |
XakepPRO Модератор форума Сейчас: Offline
Регистрация: 20.06.2012
| dejqitz (09.07.2011/22:35) Вот незадача!Япона мать Именно это я и имел ввиду |
9.07.2011 / 23:12 | |
XakepPRO Модератор форума Сейчас: Offline
Регистрация: 20.06.2012
| Var k, n, m:real;
I:integer:
Begin
Readln(n,m);
Var s:array [1..n] of real;
i:=1;
While i<>n+1 do
Begin
k+=m;
If k>n then k-=n-k;
If s[i]<>0 then begin s[i]:=k; i+=1; end:
End;
For i:=1 to n do write(s[i],'; ');
End.
Первое, что пришло в голову. |
9.07.2011 / 23:13 | |
XakepPRO Модератор форума Сейчас: Offline
Регистрация: 20.06.2012
| Стоп. Ашипка. Я забыл кое-что учесть. Лол. М может быть больше Н |
9.07.2011 / 23:15 | |
dejqitz Пользователь Сейчас: Offline
Имя: Александр Откуда: Ростов на Дону Регистрация: 01.08.2010
| XakepPRO, Нет не стоит я западло не сделаю. Так где тут мой фри паскаль?
|
9.07.2011 / 23:17 | |
XakepPRO Модератор форума Сейчас: Offline
Регистрация: 20.06.2012
| И ещё, чёт поторопился, щас исправлю одну строку. Если не засну.
|
9.07.2011 / 23:17 | |
XakepPRO Модератор форума Сейчас: Offline
Регистрация: 20.06.2012
| Ёп, фак |
9.07.2011 / 23:19 | |
aNNiMON Супервизор Сейчас: Offline
Имя: Витёк Регистрация: 11.01.2010
| XakepPRO, ахаха, у меня почти такой же код, только на C++ и у меня просто if(value > n) value -= n;
__________________
let live |