Главная » Статьи » Задачи в паскале » 2013

Поменять местами первый и последний символы строки
Program ron;
Var d,t,k:string; n:integer;
Begin
readln(k);
n:=length(k);
t:=copy(k,n,1);
writeln(t);
d:=copy(k,1,1);
writeln(d);
delete(k,1,1);
delete(k,n-1,1);
insert(t,k,0);
insert(d,k,n);
writeln(k);
end.




Категория: 2013 | Добавил: BLADELION (16.12.2013)
Просмотров: 1119 | Рейтинг: 5.0/1
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]