Вложеные цикла

[pr0kazn1k]

Среда Delphi 7

1. Сумма квадратов длин катетов а и b прямоугольного треугольника равна квадрату длины гипотенузы с: а2+b2=с2. Тройка натуральных чисел, удовлетворяющих этому равенству, называется Пифагоровыми числами. Составить программу нахождения основных троек Пифагоровых чисел, используя следующие формулы:
a=u*v; b = (u2-v2)/2; с=(u2+v2)/2, где u и v - взаимно простые нечетные натуральные числа и u>v.

2. Даны натуральные числа m, n1, n2,.., nm (m>2). Вычислить НОД(n1, n2,.., nm), воспользовавшись соотношением НОД(n1, n2,.., nm) = НОД(НОД(n1, n2,.., nm-1), nm) и алгоритмом Евклида.

3. Найти все простые несократимые дроби, заключенные между 0 и 1, знаменатели которых не превышают 7 (дробь задается двумя натуральными числами - числителем и знаменателем).

[Nikita++]

3:

Сделай вложенный цикл for:

for i:=2 to 7 do
   for j:=1 to (i-1) do
      if ((nod(i,j))>1) then write('...')

[Nikita++]

1:

Попробуй элементарный перебор v и u через вложенный for.

P.S. Когда нажимаешь на весы, то жми одобряю))))))))

[pr0kazn1k]

можешь свою аську дать?

[Nikita++]

2:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
   m,n,p,i:integer;

function nod(a,b:integer):integer;
var
   r:integer;
begin
   repeat
      r:=a mod b;
      a:=b;
      b:=r;
   until (b=0);
   nod:=a;
end;

begin
   read(m,n);
   p:=n;
   for i:=2 to m do
     begin
        read(n);
        p:=nod(p,n);
     end;
   writeln(p);
   readln;readln;
end.

[Nikita++]

Зачем тебе?

[pr0kazn1k]

Сообщение от Nikita++

Зачем тебе?

Есть деловое предложение!

[Nikita++]

Я слушаю

[pr0kazn1k]

Сообщение от Nikita++

Я слушаю

8179010 добавь меня!

[Nikita++]

Хоть примерно - какое