Question

решите ПОЖАЛУЙСТА. ЗАРАНЕЕ СПАСИБО!!!!!

Answer 1

var i,j:integer;

begin

for i:=0 to 3 do

begin

for j:=i to 2 do write (' ');

write('/');

for j:=1 to i do write ('  ');

write('');

writeln;

end ;

for i:=0 to 3 do

begin

for j:=1 to i do write (' ');

write('');

for j:=i to 2 do write ('  ');

write('/');

writeln;

end ;

end.