Răspuns :
program triunghi;
var
x, y: integer;
begin
for x := 1 to 5 do
begin
for y := 1 to 6-x do
write(y);
writeln();
end;
end.
var
x, y: integer;
begin
for x := 1 to 5 do
begin
for y := 1 to 6-x do
write(y);
writeln();
end;
end.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!