Как написать на языке Паскаль общую программу "Слова-перевёртыши" а не для единичного случая?
Программа Перевёртыши. readln (а);program p1;var s,s1:string;i,n:integer;begins:='КОТ';n:=length(s);writeln(s);for i:=1 to n do s1:=s1+copy(s,n-i+1,1);writeln(s1);end.Вот например, эту программу как исправить?
А что должен делать "перевертыш"? Переворачивать и выводить введенный текст или проверять, является ли введенное "перевертышем"?
Читать задом наперёд любое введённое слово.
// 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. Тестовое решение: Введите строку: Леша на полке клопа нашел Перевертыш: лешан аполк еклоп ан ашеЛ