Задание:
Перевернуть введенную строку. (Например из "диск" получится "ксид").
У меня получилось сделать только так:
Код:
program reversed_string;
var s1:string;
h,i,n:integer;
g:char;
begin
readln(s1);
n:=Length(s1);
i:=0;
h:=n;
for i:=0 to h do
begin
g:=s1[n];
write(g);
n:=n-1;
end;
readln;
end.
Все как бы работает. Но как можно иначе сделать ? Чтобы строка "учавствовала", а не один символ ? Спасибо.