за ответ дайте ответ Какие настройки были изменены?

Укажите один или несколько правильных вариантов ответа:

1 межстрочный интервал
2 интервал перед/после абзаца
3 красная строка
4 выравнивание по левому краю
5 выравнивание по правому краю
6 выравнивание по ширине
7 отступ слева/справа
8 выравнивание по центру

66

Объяснение:

Всего между планетами есть 13 * 12 / 2 = 78 связей (мысленно разрежем каждую связь пополам, у каждой планеты будет по 12 половин, всего 13 * 12 половин. Значит, целых связей 13 * 12 / 2)

Если выстроить планеты "в цепочку" (1 связана с 2, 2 с 3, ..., 12 с 13), очевидно, связаться всё равно будет можно, при этом останется 12 связей.

Меньше связей оставить не получится: действительно, для того, чтобы связать 2 планеты, нужна одна связь, а чтобы подключить к ним каждую дополнительную планету, придется провести связь от новой планеты к какой-то из уже подключенных.

Можно нарушить не больше 78 - 12 = 66 связей.

1)
var x:integer;
begin
read (x);
if (x=12) or (x=1) or (x=2) then writeln ('Зима');
 if (x=3) or (x=4) or (x=5) then writeln ('Весна'); 
 if (x=6) or (x=7) or (x=8) then writeln ('Лето'); 
 if (x=9) or (x=10) or (x=11) then writeln ('Осень'); 
end.
2)
var K,a:integer;
begin
readln(K);
a:=K mod 10;
if (K=11) or(K=12) or (K=13) or (K=14) then writeln ('У меня ',K,' друзей') else
begin
if (a=1) then writeln ('У меня ',K,' друг');
if (a=0) or ((a>=5) and (a<=9)) then writeln ('У меня ',K,' друзей');
if (a>=2) and (a<=4) then writeln ('У меня ',K,' друга');
end;
end.