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.
Выполните

Переустановить игру или проверить целостность кэша в свойствах игры.

Балаково, Бийск, Варна, Бишкек, Волгоград, Воркута
Ответ: 6

В двоичной системе счисления

34:2=17 сноситься 0
17:2=8 сноситься 1
8:2=4 сноситься 0
4:2=2 сноситься 0
2:2=1 сноситься 0 и 1.
Пишем то, что снесли в обратном порядке. То есть 100010 - двоичная
Точно так же остальные числа (расписывать долго будет)
87 - в двоичной 1010111
213 -  11010101
655 - 1010001111
817 - 1100110001
2612 - 101000110100
4561 - 1000111010001