Bienvenido a Revelroom.ca, donde puedes obtener respuestas rápidas y precisas con la ayuda de expertos. Nuestra plataforma ofrece una experiencia continua para encontrar respuestas precisas de una red de profesionales experimentados. Explora un vasto conocimiento de profesionales en diferentes disciplinas en nuestra completa plataforma de preguntas y respuestas.

como dibujar un triangulo en turbo pascal y su codoficacion

Sagot :

te dejo los pasos:

 

program triangulo;
uses crt;
var
i,n,CONT:integer;
begin
CONT:=1;
writeln ('introduzca la longitud');
readln (n);
writeln;
writeln;
while (CONT<=n) do
begin
for i:=1 to CONT do
write ('0');
writeln;
CONT:=CONT+1;
end;
readln;
end.

 

 

listo saludos