Вывести числа Пифагора, которые меньше заданного числа

Категория: Delphi/Pascal
2011-08-20 14:14:16

Натуральные числа а,б,с называются числами Пифагора, если выполняется условие а*а+b*b=с*с. Напечатать все числа Пифагора меньше N.

code: #pascal
  1. program pif(input,output);
  2. var n:integer;
  3. procedure write_pif(n:integer);
  4. var i,j,k:integer;
  5. begin
  6.   for i:=1 to n-2 do
  7.     for j:=i to n-1 do
  8.       for k:=j to n do begin
  9.           if sqr(i)+sqr(j)=sqr(k) then begin
  10.             write(i,' ',j,' ',k,' ');
  11.             writeln;
  12.           end;
  13.       end;
  14.   end;
  15.  
  16. begin
  17.      read(n);
  18.      write_pif(n);
  19.      readln;
  20.      readln;
  21. end.
Поделиться:

Похожие статьи:

теги: арифметика, числа пифагора, консольное приложение, студенты, pascal