Răspuns:
Program p1;
var n,i,j:integer;
begin
Writeln('Dati valori lui n');
Readln(n);
for i:=1to n do
begin
for j:=1 to i do
write(j);
writeln;
end;
readln;
end.
sa-ti arate invers de la mare la mic:
Program p1;
var n,i,j:integer;
begin
Writeln('Dati valori lui n');
Readln(n);
for i:=n downto 1 do
begin
for j:=1 to i do
write(j);
writeln;
end;
readln;
end.
Explicație:
o sa-ti arate
1
12
123
1234
12345
Invers:
12345
1234
123
12
1
