Тролль-автомобилист Тролль Зумбагеш купил автомобиль! Теперь ему можно не ходить по маршруту, а ездить с комфортом. Но вот незадача - в наши края внезапно пришла зима... Теперь Зумбагешу требуется сменить колёса на своей машине с летних на зимние. Одно колесо крепится n болтами, болты расположены по кругу. Пронумеруем их по часовой стрелке от 0 до n-1. Один болт на каждом колесе - особый, называется "секретка". Будем считать, что секретка имеет номер s. В руководстве по обслуживанию автомобиля Зумбагеш прочитал: "При закручивании болтов колеса закручивайте их с шагом через k болтов, передвигаясь по часовой стрелке, секретку закручивайте последней." После этого он крепко задумался: а с какого по номеру болта нужно начинать процесс закручивания, чтобы закручивая каждый раз через k болтов по часовой стрелке, закрутить в итоге все, а последней закрутить секретку?

👇

Ответ:

Убийца967

22.11.2021

Пошаговое объяснение:

крайние тролли обнимутся всего один раз, развернутся и уйдут на свой конец улицы, больше никого не встретив.

вторые с краю тролли обнимутся первый раз, развернутся, встретят крайнего тролля, обнимутся с ним, развернутся, опять встретятся-обнимутся, и, развернувшись уйдут на конец улицы больше никого не встретив (крайний тролль то уже ушел...) итого 3 обнимания.

Продолжая эту цепочку получаем

1 3 5 7 9 11 12 11 9 7 5 3 1

отличается только первый тролль из семерки, поскольку он в результате уйдет не на свой конец улицы, а на противоположный...

4,8(22 оценок)

Открыть все ответы

Ответ:

Nanaw45

22.11.2021

FOR15

program fofgogjoj;
var
n,i : integer;
a,p : real;
begin
Writeln('Введите число.');
Readln(a);
Writeln('Введите степень');
Readln(n);
p:=1;
for i:=1 to n do
begin
p:=p*a;
end;
if a<0 then
p:=1/p;
Writeln(p :6:3);
readln;
end.

FOR16

program fofgogjoj;
var
i, n: integer;
a, p: real;
begin
Writeln('Введите число:');
Write(' a = ');
Readln(a);
Writeln('Введите показатель степени (n > 0):');
Write(' N = ');
Readln(N);
Writeln('Все степени числа ', a, ' от 1 до ', n, ':');
p:= 1;
for i:=1 to n do
begin
p:= p*a;
Writeln(' ', a, ' в степени ', i, ': ', p:0:2)
end
end.

4,8(49 оценок)

Ответ:

0000444455665

22.11.2021

1) uses crt;
var a,s:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
for i:=1 to n do begin
s:=s*a;
end;
writeln('Число ',a,' в степени ',n,' равно ',s);
end.

2)uses crt;
var a,s:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
for i:=1 to n do begin
s:=s*a;
writeln(a,' в степени ',i,' равно ',s);
end;
end.

3)uses crt;
var a,s,p:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
p:=1;
write('1 + ');
for i:=1 to n do begin
s:=s*a;
p:=p+s;
if i<n then write(s,' + ');
if i=n then write(s,' = ');
end;
writeln(p);
end.