Question

Witam potrzebuje pomocy qw zadaniu na jak najszybciej ^^

Potrzebuje napisać program w języku Pascal który będzie dla n ilości wierszy wypisywał kolejno liczby

Czyli jęsli n=5 to będzie 5 wierszy

1

23

456

78910

1112131415

Answer 1

program zadanie
var
i,j,n,k,temp :integer;

begin
temp:=1;
k:=1;
read(n);
    for i:=1 to n do
    begin
        for j:=temp to k do
        begin
            write(j);
            temp:=j;
        end;
        temp:=temp+1;
        k:=i+temp;
        writeln;
    end;
readln;
end.

Answer 2

Program napisany pod FPC 2.6.0:

Wersja z formatowaniem kodu: http://ideone.com/PIXRLI

Wersja "sucha":
Var N, I: Byte;
Num : LongWord=1;
Begin
Readln(N);

For N := 1 To N Do
Begin
For I := 1 To N Do
Begin
Write(Num);
Num += 1;
End;
Writeln;
End;
End.