Numeros pitagoricos
programaqe intenta calcular los numeros qe enteros qe cumplen el teorema de piagoras
Descrição
programaqe intenta calcular los numeros qe enteros qe cumplen el teorema de piagoras
program numeros_pitagoricos;
uses crt;
var a,b,c:integer;
archivo:text;
BEGIN
clrscr;
assign(archivo,'D:\abraham\programacion\delphi\numeros pitagoricos.txt');
rewrite(archivo);
{writeln(' a b c');}
{writeln('');}
writeln(archivo,' a b c');
FOR A:=1 TO 50 DO
FOR B:=1 TO 50 DO
begin
c:=trunc(sqrt(sqr(a)+sqr(b)));
IF c*c=a*a+b*b then
begin
writeln(archivo,a:8,' ', ' ',b:8, ' ' ,c:8);
end;
end;
close(archivo);
end.