Question

Se da un numar natural n. Scrieti un program Pascal ce va afisa urmatoarele serii de numere
1
1 2
1 2 3
1 2 3 4 5
...
1 2 3 4 5 ... n.

Answer 1

Program Afisare;
 var i, n, j: integer;
 
begin
 write ('Introduceti n:');
 readln (n);
 j:=1;
 
Repeat
     for i:=1 to j do
 write (i, ' ');
 writeln;
       inc(j);
until j=n+1;

 readln;
 end.