Question

Переверните введенную строку (например, из 'ДИСК' должно получиться КСИД).

Answer 1

program Example9;
var   word, reversedWord: string;   i: integer;
begin   word := 'ДИСК';   reversedWord := '';   for i := length(word) downto 1 do     reversedWord := reversedWord + word[i];   writeln(reversedWord); end.