Пифагоровы тройки Z2 = X2 + Y2

Если числа X,Y,Z таковы, что Z2 = X2 + Y2, то про такие числа говорят, что они образуют Пифагорову тройку.
Написать программу, порождающую Пифагоровы тройки. помогите пожалуйста

0

Выкладывайте свои наработки.

0

К сожалению наработок нет, не знаю с чего начать((

0

есть наработка на бэйсике, помогите перевести на f#:

dim a, b as integer
dim c as single

for a =1 to 20
for b=1 to 20
if a<>b then
c=Sqr(a*a+b*b)

'Text1.Text=Text1.Text&(c)&Chr(13)+Chr(1 0)
if c<>a and c<>b then
if c-Fix(c)=0 then
'Text1.Text=Text1.Text&(c Mod 1)&(Chr(13)+Chr(10)
Text1.Text=Text1.Text&a&" "&b&" "&c&Chr(13)+Chr(10)
end if
end if
end if
next
next




еще проблемка в том, что нужен интерфейс, то есть запускаешь программку, выводится сообщение:"Введите количество пифагоровых троек", пользователь вводит корректное число и программка автоматический генерирует заданное количество троек, а не выводит проверяет числа от 1 до 20 как в этоу программке, но как это сделать, затрудняюсь(( помогите пожалуйста

Добавлено через 21 час 24 минуты
ОЙ, на PROLOG надо перевести,есть наработка на бэйсике, помогите перевести на PROLOG:

dim a, b as integer
dim c as single

for a =1 to 20
for b=1 to 20
if a<>b then
c=Sqr(a*a+b*b)

'Text1.Text=Text1.Text&(c)&Chr(13)+Chr(1 0)
if c<>a and c<>b then
if c-Fix(c)=0 then
'Text1.Text=Text1.Text&(c Mod 1)&(Chr(13)+Chr(10)
Text1.Text=Text1.Text&a&" "&b&" "&c&Chr(13)+Chr(10)
end if
end if
end if
next
next




еще проблемка в том, что нужен интерфейс, то есть запускаешь программку, выводится сообщение:"Введите количество пифагоровых троек", пользователь вводит корректное число и программка автоматический генерирует заданное количество троек, а не выводит проверяет числа от 1 до 20 как в этоу программке, но как это сделать, затрудняюсь(( помогите пожалуйста

0