program Colorscr;uses CRT; label 1; var c,x,y,i,l:integer; s:string; ch:char; begins:='Алиса'; l:= length(s); 1:for i:=1 to l do beginx:=10 2*i;y:=10; c:=Random(15) 1; textcolor(c); gotoxy(x,y); write(copy(s,i,1)); end;ch:=readkey; if ch<>'0' then goto 1; end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
