Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Как написать на языке Паскаль общую программу "Слова-перевёртыши" а не для единичного случая?

Ответ оставил Гость

// PascalABC.Net 3.0, сборка 1064
var
  i:integer;
  s:string;
begin
  Write(Введите строку: ); Readln(s);
  Write(Перевертыш: );
  for i:=Length(s) downto 1 do Write(s[i]);
  Writeln
end.

Тестовое решение:
Введите строку: Леша на полке клопа нашел
Перевертыш: лешан аполк еклоп ан ашеЛ