Переделать программу в процедуру program nolik; uses crt; var x,y: integer; begin repeat x: =40; y: =1; repeat gotoxy(x,y); write (0); y: =y+1; x: =x+3; delay(100); clrscr; until x> 70; repeat gotoxy(x,y); write(0); y: =y+1; x: =x-3; delay(100); clrscr; until y> 24; repeat gotoxy(x,y); write(0); y: =y-1; x: =x-3; delay(100); clrscr; until x< 4; repeat gotoxy(x,y); write(0); y: =y-1; x: =x+3; delay(100); clrscr; until y< 3; until keypressed; readln; end.

pushkovaleria    3   12.04.2019 09:33    2