Uses GraphABC; procedure square( g: integer); begin line(100+g,100+g,100+g,200+g); line(100+g,100+g,200+g,100+g); line(200+g,100+g,200+g,200+g); line(100+g,200+g,200+g,200+g); end; begin for var i:= 1 to 200 do begin window.clear; square(i); sleep(100); end; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
