Numeros pitagoricos
Publicado por Abraham Zamudio Chauca 16/01/2006
[ Hits: 5.393 ]
Download numeros_pitagoricos.PAS
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.
Questionário em estatisticas em Pascal
Visualizador De Imagem feito no Lazarus (Delphi 7 para Linux)
Nenhum coment�rio foi encontrado.
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Atualizar Debian Online de uma Versão para outra
Instalar driver Nvidia no Debian 13
Redimensionando, espelhando, convertendo e rotacionando imagens com script
Debian 13 Trixie para Iniciantes
Convertendo pacotes DEB que usam ZSTD (Padrão Novo) para XZ (Padrão Antigo)
Debian 13 "trixie&... lançado! (44)
Rust é o "C da nossa geração"? (3)
Gerenciador de arquivos é finalizado ao abrir pasta específica (2)