Program dety;
const nmax=20; {максимальное число игроков}
var n, {фактическое число игроков}
 m, {число слов в считалке}
 i, j: integer;
 krug: set of 1..nmax;
begin
write('Введите число игроков: ');
write('Введите число слов в считалке: ');
read(n, m);
krug:=[1..n]; {в круге стоит n детей}
i:=n;
repeat
 for j:=1 to m do
 repeat
 i:=i mod n+1
 until i in krug;
 write(i:3);
 krug:=krug-[i]
 until krug=[ ]
end.


2012-06-22 • Просмотров [ 3068 ]