Question

Zad. 2 Napisz program, który narysuje górę o wysokości 10 wierszy, złożoną z symboli 'X' na którą pada śnieg (symbole '.'). Rysunek powinien wyglądać następująco:

.......... X..........
.........XXX.........

........XXXXX........
.......XXXXXXX.......
......XXXXXXXXX......
.....XXXXXXXXXXX.....
....XXXXXXXXXXXXX....
...XXXXXXXXXXXXXXX...
..XXXXXXXXXXXXXXXXX..
.XXXXXXXXXXXXXXXXXXX.

turbo pascal oczywiście

Answer 1

Program choina;
uses crt;
var
i,j:integer;
begin
clrscr;
for i:=0 to 9 do
begin
for j:=1 to 10-i do
Write('.');
for j:=1 to 2*i+1 do
Write('X');
for j:=1 to 10-i do
Write('.');
writeln;
end;
readkey;
end.

 

 

W razie pytań/sugestii/problemów/reklamacji pisz pw.