|
|
back to boardTHIS IS THE RIGHT SOLUTION FOR THIS PROBLEM I lately got AC for this var N:integer; i:integer; begin readln(N); if n=0 then writeln(0) else begin writeln('0'); writeln('X'); writeln('*'); for I:=1 to n-1 do begin writeln(i); writeln('+'); writeln('X'); writeln('*'); end; writeln(n); writeln('+'); end; end. |
|
|