Question

Como dibujar un triangulo invertido en turbo pascal y su codificación

Answer 1

Respuesta:

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.