Question

В данном слове произведите обмен первого и последнего символов.

Answer 1

program Example6;
var   word: string;   tempChar: char;
begin   word := 'строка';   tempChar := word[1]; // Сохраняем первый символ   word[1] := word[length(word)]; // Замена первого символа последним   word[length(word)] := tempChar; // Замена последнего символа сохраненным   writeln(word); end.