var s:string; i:integer; begin Write('Введите слово: '); Readln(s); for i:=Length(s) downto 1 do Insert(' ',s,i); Writeln('Результат: ',s) end.
Пример решения Введите слово: Паскаль Результат: П а с к а л ь
var s1,s2,s3:string; i:integer; begin Write('Введите первое слово: '); Readln(s1); Write('Введите второе слово той же длины: '); Readln(s2); s3:=''; for i:=1 to Length(s1) do s3:=s3+s1[i]+s2[i]; Writeln('Результат: ',s3) end.
Пример решения Введите первое слово: Корова Введите второе слово той же длины: собака Результат: Ксоорбоавкаа
