Слово наоборот

[Ketu]

1)Помогите получить слово-перевертыш:например, вводим дом-получаем мод.
2)И ещё один вопрос:как сделать, что бы при вводе строки из нескольких слов каждое печаталось с новой строчки?

[motaro]

var k1,k2,k3:char;
begin
 write ('Введите слово: ');
 readln (k1,k2,k3);
 writeln (k3,k2,k1);
 readln
end.

[Ketu]

Спасибо,всё оказалось просто.
Второй вопрос остаётся актуальным.

[W_P]

Все зависит от количества слов и символов из которых состоят слова. Тем более когда ты переворачиваешь слово через код, указанный выше, то слова длиннее 3 символов уже не можешь ввести.

[Ketu]

Сообщение от W_P

Все зависит от количества слов и символов из которых состоят слова. Тем более когда ты переворачиваешь слово через код, указанный выше, то слова длиннее 3 символов уже не можешь ввести.

я понимаю, ноя могу ввести столько переменных сколько будет нужно. Правда при очень длинных словах получается немного некрасиво.

[Carbon]

Сообщение от Ketu

я понимаю, ноя могу ввести столько переменных сколько будет нужно. Правда при очень длинных словах получается немного некрасиво.

НЕМНОГО?

[Ketu]

Сообщение от Carbon

НЕМНОГО?

А ты можешь предложить другой вариант?

[Carbon]

var line,res:string;
     i,len:integer;
begin

readln(line);

res:='';//Инициализацию забыл.

len:=length(line);

for i:=1 to len do
res:=res+line[len-i+1];

writeln(res);

readln

end.

[Ketu]

Что-то неправильно она у меня как-то работает: заменяет все буквы на последнюю.

[Карась]

var s : String;
     i : Integer;

Begin
Readln (S);
For i := 0 To Length(S) Do
Write ( S[Length(s) - i] );
Readln;
End.

Это была разминка....

var i : integer;
    S, S1 : String;

Begin
S1 := '';
Readln (S);
For i := 1 To Length(S) Do
  Begin
    S1 := S1 + S[i];
    if (S[i] = ' ') And (S[i + 1] <> ' ') Then
     Begin
      Writeln (S1);
      S1 := '';
     End;
      if i = Length(S) Then Writeln (S1);
  End;
Readln;
End.