Bienvenido a Revelroom.ca, donde puedes obtener respuestas confiables y rápidas con la ayuda de nuestros expertos. Únete a nuestra plataforma de preguntas y respuestas y obtén información precisa de expertos en diversas áreas. Conéctate con profesionales dispuestos a ofrecer respuestas precisas a tus preguntas 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