В английском лагере за круглым столом оказалось 5 девочек родом из Минска, Екатеринбурга, Норильска, - id1852711420211205 от ladykrisMi 05.12.2021 06:41

Question

Информатика: В английском лагере за круглым столом оказалось 5 девочек родом из Минска, Екатеринбурга, Норильска, Пскова и Твери: ЮЛЯ, Тася, Алина, Катя и Валя. Минчанка сидела между тверитянкой и Валей, екатеринбурженка между Юлей и Тасей, а напротив неё сидели псковитянка и Алина. Катя никогда не была в Екатеринбурге, а Юля не бывала в Минске и Твери, а тверитянка с Тасей регулярно переписываются. Из какого города каждая девочка? І

ladykrisMi · Accepted Answer

//Pascal ABC.NET 3.1 сборка 1219

Var
k,n,max:integer;

procedure hase(var k,n,max:integer); //сама последовательность
begin
if not(odd(n)) then n:=n div 2 else n:=n*3+1; //условие про чётность
writeln(n); //вывод нового члена последовательности
inc(k); //увеличение значения счётчика шагов
if max<n then max:=n; //поиск вершины
end;

procedure start(var k,n,max:integer); //название процедуры намекает
begin
readln(n);
k:=0;
writeln('Seq:');
max:=integer.MinValue;
while n<>1 do
hase(k,n,max);
writeln('Шаги:',k);
writeln('Вершина:',max);
end;
begin
start(k,n,max);
end.
Пример ввода:
6
Пример вывода:
Seq:
3
10
5
16
8
4
2
1
Шаги:8
Вершина:16

MOGZ ответил