Главная arrow ГДЗ arrow Школьные задания arrow Pascal слово наоборот

Pascal слово наоборот

Pascal слово наоборот, Задание на паскале, Переворот слова

При введении любого слова или фразы с клавиатуры, программа выводит это же слово в обратном порядке
Пример:
Ввод: мама
Вывод: амам

Решение

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.