Глеб любит играть в настолки. Но еще больше Глеб любит их придумывать. В очередной раз он предложил опробовать его новое творение. На этот раз игра предназначена для одного человека. В начале вам выдается 6 карточек с цифрами от 1 до 6 (каждая цифра встречается ровно один раз). Затем в каждый свой ход вы можете заменить ровно 2 свои карточки на «соседние» по номиналу. То есть карточку с цифрой 2 можно заменить на карточку с цифрой 1 или 3, карточку с цифрой 3 — на 2 или 4. Причем карточку с цифрой 1 можно поменять не только на 2, но и на 6. А карточку с цифрой 6 можно заменить на карточку с цифрой 1 или 5.
Цель игры — получить 6 карточек с одинаковыми цифрами. Выясните, получится ли у вас выиграть и, если получится, предъявите последовательность ходов.
var
k, sum, n, i: integer;
A: array of integer;
begin
writeln('Введите размерность массива: ');
readln(n);
SetLength(A, n);
writeln('Введите K: ');
readln(k);
writeln('Введите ', n, ' элементов массива :');
for i := 0 to n - 1 do
begin
readln(A[i]);
if A[i] mod k = 0 then sum := sum + A[i];
end;
writeln('Результат: ', sum);
end.
2.
var
c, k, n, i: integer;
B, A: array of integer;
begin
k := 1;
writeln('Введите размерность массива: ');
readln(n);
SetLength(A, n + 1);
writeln('Введите ', n, ' элементов массива :');
for i := 1 to n do
begin
readln(A[i]);
if A[i] = 0 then
begin
inc(c);
SetLength(B, c + 1);
B[k] := i;
inc(k)
end;
end;
writeln('Позиции нулевых элементов: ');
for i := 1 to c do write(B[i]:3);
end.
begin
read(k);
if k div 7=k/7 then n:=7 else
if k+1 div 7=k+1/7 then n:=6 else
if k+2 div 7=k+2/7 then n:=5 else
if k+3 div 7=k+3/7 then n:=4 else
if k+4 div 7=k+4/7 then n:=3 else
if k+5 div 7=k+5/7 then n:=2 else
if k+6 div 7=k+6/7 then n:=1;
writeln(n);
end.
б)var k,n:integer;begin
read(k);
if k-1 div 7=k-1/7 then n:=7 else
if k div 7=k/7 then n:=6 else
if k+1 div 7=k+1/7 then n:=5 else
if k+2 div 7=k+2/7 then n:=4 else
if k+3 div 7=k+3/7 then n:=3 else
if k+4 div 7=k+4/7 then n:=2 else
if k+5 div 7=k+5/7 then n:=1;
writeln(n);
end.