Для этой задачи нужно знать что:
0 + 0 = 0
0 + 1 = 1
1 + 0 = 1
1 + 1 = 10
В итоге получаем
1000000
var a,b,c:integer;
begin
for a:= 1 to 20 do
for b:= 1 to 20 do
for c:= 1 to 20 do
begin
if a*a+b*b=c*c then
writeln(a:4,b:4,c:4);
end;
end.
Ответ: Б!
Ответ А не подходит: Принтер не устройство ввода.
Ответ В не подходит: Монитор не устройство воода.
Ответ Г не подходит: Флеш-память не устройство ввода!
Вот блок-схема, надеюсь помог)