Numeros pitagoricos
Publicado por Abraham Zamudio Chauca 16/01/2006
[ Hits: 5.259 ]
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.
ZCodEdit - Editor de textos com sintaxe HTML e Pascal
Visualizador de imagens feito no Lazarus
Nenhum comentário foi encontrado.
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Criando uma VPC na AWS via CLI
Tem como instalar o gerenciador AMD Adrenalin no Ubuntu 24.04? (16)
Arch Linux - Guia para Iniciantes (2)
Problemas ao instalar o PHP (11)
Tenho dois Link's ( IP VÁLIDOS ), estou tentando fazer o failover... (0)