Составить программу на Pascal, которая в введённой строке меняет первые два символа на последние два символа и выводит новую строку. Использовать только writeln, for, i, begin.

Без readln строку ввести невозможно, поэтому он нужен. Программа меняет местами первые два и последние два символа:

program SwapSymbols;
var s: string;
begin
  readln(s);
  if length(s) >= 4 then
    writeln(s[length(s)-1] + s[length(s)] + copy(s, 3, length(s)-4) + s[1] + s[2])
  else
    writeln('Строка должна содержать не менее 4 символов');
end.

Например, из строки abcdef получится efcdab.

0 0 Пожаловаться