Program Main; var a, b, c, N:integer; begin writeln('Введите N'); read (N); for a:=1 to N-1 do for b:=a+1 to N-1 do for c:=1 to N-1 do if a*a+b*b=c*c then writeln (a:5, b:5, c:5) end. Выполните

Объяснение:

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

Кажется, догадался.

1) Плывут взрослая горилла и взрослая шимпанзе. Горилла остаётся на том берегу. Шимпанзе возвращается.

2) Шимпанзе берет ребенка гориллы и перевозит. Оставляет ребенка на том берегу и возвращается.

3) Шимпанзе берет своего ребенка и перевозит. А в обратную дорогу берет ребенка гориллы и возвращает на этот берег.

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

А на 2 берегу взрослая горилла и ребенок шимпанзе.

Всех поровну, никто никого не съел.

4) Шимпанзе забирает своего второго ребенка и перевозит на тот берег. Обратно возвращается горилла.

5 и 6) Горилла за два рейса перевозит обоих своих детей.

По факту, есть несколько вариантов:

1) Ты можешь найти контакты Кевина Митника, человека, который 25 декабря 1994 года взломал тот самый Пентагон,

2) Ты можешь зайти в Тор браузер (если у тебя его нет, то скачай с офиц. сайта) и найти там услуги хакеров. Так как сейчас весь мир охватила пандемия, у них там скидки. За нереально бешенные деньги они тебе не только Пентагон взломают, поэтому можно обратиться к ним (но это работает только в том случае, если у тебя завалялись где-то лишние десятки миллионов долларов),

3) Можно обратиться к Вовану и Лексусу. Они позвонят президенту Америки, представившись понятно кем, и попросят его дать ключ доступа к Пентагону. Далее ты уже действуешь самостоятельно.