👤

Puteti sa scrieti programul la Turbo Pascal 7 care sa arate urmatorul triunghi! Va rog frumos!


5
54
543
5432
54321


Răspuns :

Numai ca acest program il afiseaza invers:

var

a,b,c:integer;

begin

b:=54321;

c:=10000;

writeln(b);

for a:=1 to 4 do begin

writeln(b mod c);

c:=c div 10;

end;

end.

Daca te procepi in C++ codul arata astfel:

#include <stdio.h>

int main()

{

int i, j;

for(i=5;i>=1;i–)

{

for(j=5;j>=i;j–)

{

printf(“%d”,j);

}

printf(“\n”);

}

return 0;

}

programul de mai jos afiseaya respectivul triunghi pt orice numar dat, nu numai 5

program triunghi;

var i, j, n: integer;

begin

 write('n='); read(n);

 for i:=n downto 1 do

  begin

    for j:=n downto i do

       write(j);

    writeln;

  end;

end.