Numeros pitagoricos
Publicado por Abraham Zamudio Chauca 16/01/2006
[ Hits: 5.376 ]
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.
Visualizador de imagens feito no Lazarus
Funções de Manipulação de Arquivos Pascal
ZCodEdit - Editor de textos com sintaxe HTML e Pascal
Nenhum coment�rio foi encontrado.
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Olha que Conky "bunitinhu" pra usar no seu sistema
Git config não aplica configurações
O que você quer para sua vida ao usar o Linux?
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
warsaw parou de funcionar após atualização do sistema (solução) (8)
Study Fast, Pass Easy – Authentic SAP C_TS4CO_2023 Questions 2025 (0)
Aprendendo mais sobre Linux com livro (0)
samba4 versao 4.22.3 usuario nao consegue trocar a senha (4)