Question

Borland Pascal!

Napisz program wyświetlający następującą kombinację znaków: x

xx

xxx

xxxx

...

Chodzi o to, że ostatni wers ma liczyć tyle samo x co ilość wersów;) liczbę wersów przyjmijmy jako n. Jak wykonać to zadanie z pętlą interacyjną?

Answer 1

var
n,i,x:longint;
begin
readln(n);
for i:=1 to n do
    begin
    for x:=1 to i do write('x');
    writeln()
    end;
    readln()
end.