Pascal n девочек стоят в круге и бросают мяч друг другу. девочка, у которой мяч был в начале игры, бросает мяч k-й после нее девочке, считая по часовой стрелке (1≤k≤n/2 эта девочка ловит мяч и в свою очередь бросает мяч k-й после нее девочке, считая по часовой стрелке, и так далее. так мяч переходит от девочки к девочке до тех пор, пока он снова не попадет к девочке, у которой мяч был в самом начале игры. например, если n = 7 и k = 3, то девочки получают мяч в следующем порядке: 1, 4, 7, 3, 6, 2, 5, 1. чтобы сделать игру еще более интересной, девочки хотят выбрать k как можно более большим, но с тем, чтобы выполнялось одно условие: во время игры мяч должен побывать у каждой девочки хотя бы один раз. входные данные ваша программа должна вводить с клавиатуры одно число n (3≤n≤2000000000) – количество девочек, принимающих участие в игре. выходные данные выведите на экран число k, которое нужно выбрать девочкам. примеры. ввод вывод

Ни дай бог увижу тебя еще раз на занятиях.

23 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 #include < iostream> #include < cmath> using namespace std; int main() { int a=0, n, r; cout < < "enter integer n: "; cin> > n; do     {           r = n % 10;     if ( r==3 ) {           cout < < "yes";     a=1;       n=0;     }     n=n/10;         }     while ( n> =1 ); if (a! =1) cout < < "no"; system("pause"); return 0; }

1)

var

  a: 100..999;

  a1, a2, a3: 0..9;   //а1 - сотни, а2 - десятки, а3 - единицы

 

begin

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a1, a3, a2);

end.

2)

var

  a: 100..999;

  a1, a2, a3: 0..9;

 

begin

   

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a2, a1, a3);

end.

3)

var

  a: 100..999;

  a1, a2, a3: 0..9;

 

begin 

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a3, a1, a2, a3);

end.

4)

var

  a: 1000..9999;

  a1, a2, a3, a4: 0..9;

 

begin

  writeln('введите натуральное четырехзначное число');

  readln(a);

  a1: = a div 1000;   //тысячи

  a2: = (a mod 1000) div 100;   //сотни

  a3: = (a mod 100) div 10;   //десятки

  a4: = a mod 10;   //единицы

  writeln('полученное число:   ', a4, a3, a2, a1);

end.

все остальное делается наподобие этого: просто в writeln меняешь местами цифры и все.