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.
Выполните пожалуйста N=10;20
На этот вопрос еще никто не ответил. Напишите свой ответ или воспользуйтесь поиском:
Новые вопросы
Русский язык,
2 года назад
Математика,
2 года назад
Литература,
7 лет назад
Геометрия,
7 лет назад
История,
8 лет назад