перевернуть слово Опции

[Ludmilka]

Извини пожалуйста, помогите мне! Программа элементарная, вот только я что-то подсела... Надо написать программу, которая переворачивает слово. Например был "ток", а выводится "кот".

Сообщение отредактировано: мисс_граффити - 14.06.2007 22:14

[Артемий]

Много извиняюсь...

Тогда наверно так:

var
arr: array [1..255] of char;
i,o: Integer;
s,s2: string;
begin
writeln('Slovo: ');
readln(s);
for i:=0 to length(s) do
begin
arr[i]:=s[i];
end;
for o:=length(s) downto 1 do
begin
s2:=s2+arr[o];
end;
writeln(s2);
readln
end.

(у меня в Turbo Pascal нормально работает)

Сообщение отредактировано: Артемий2 - 9.02.2007 0:21