var s,s1:string; n,i:integer; begin writeln(Введите слово длиной 3n:); readln(s); n:=length(s) div 3; delete(s,2*n+1,n); s1:=; for i:=1 to 2*n do s1:=s[i]+s1; writeln(s1); end.
Пример: Введите слово длиной 3n: programma argorp
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
