Перебираешь все взаимно простые m > n разной четности, так чтобы m*m было меньше 30. И формируешь тройки по формуле: k*(m*m-n*n, 2*m*n, m*m + n*n)
Например так: function gcd(a,b: integer): integer; begin if b = 0 then gcd := a else if (a > b) and (b > 0) then gcd := gcd(b, a mod b) else gcd := gcd(b, a); end;
procedure Print(m,n:integer); var i, a, b, c: integer; begin repeat i := i + 1; a := (m*m-n*n)*i; b := 2*m*n*i; c := (m*m+n*n)*i; if c < 30 then writeln(a, ' ', b, ' ', c) else break; until false; end;
var m, n, s: integer; begin s := Trunc(Sqrt(30)); for m := 1 to s do for n := m + 1 to s do if (gcd(n, m) = 1) and ((m mod 2)<>(n mod 2)) then Print(n, m) end.
Циклы итерационного типа.. это while и repeat? Тогда отличаются тем, что цикл с параметром всегда выполняется конечное число раз, итерационные циклы могут повторяться бесконечно.
Принцип действия цикла FOR(цикла с параметром): при изменении некой переменной от начала до конца выполняется тело цикла. Всё очень просто!
При вызове процедуры с параметрами необходимо указать все необходимые параметры.
Вызов процедур и функций осуществляется путём простого указания их названия в тексте программы (при необходимости - с требуемыми параметрами)
Процедура просто выполняет определённые действия, функция тоже выполняет некоторые действия, плюс она ещё вычисляет и возвращает в программу некоторое значение.
k*(m*m-n*n, 2*m*n, m*m + n*n)
Например так:
function gcd(a,b: integer): integer;
begin
if b = 0 then gcd := a
else if (a > b) and (b > 0) then gcd := gcd(b, a mod b)
else gcd := gcd(b, a);
end;
procedure Print(m,n:integer);
var i, a, b, c: integer;
begin
repeat
i := i + 1;
a := (m*m-n*n)*i;
b := 2*m*n*i;
c := (m*m+n*n)*i;
if c < 30 then
writeln(a, ' ', b, ' ', c)
else break;
until false;
end;
var m, n, s: integer;
begin
s := Trunc(Sqrt(30));
for m := 1 to s do
for n := m + 1 to s do
if (gcd(n, m) = 1) and ((m mod 2)<>(n mod 2)) then
Print(n, m)
end.