ДАНО СЛОВО ДЛИНОЙ НЕ МЕНЕЕ 8 СИМВОЛОВ НАПИСАТЬ ПРОГРАММУ КОТОРАЯ ПЕРЕНОСИТ 1 БУКВУ В...

Question

ДАНО СЛОВО ДЛИНОЙ НЕ МЕНЕЕ 8 СИМВОЛОВ НАПИСАТЬ ПРОГРАММУ КОТОРАЯ ПЕРЕНОСИТ 1 БУКВУ В КОНЕЦ СЛОВА

Answer 1

uses crt;
var
  s:string;p:char; i:integer;
begin
  write('Введи слово, в котором не менее 8 букв:  '); readln(s);
  if length(s)<8 then write('Вы ввели слишком короткое слово.')<br>  else
  begin
    p:=s[1];
    for i:=1 to length(s) do

      s[i]:=s[i+1];
      s[i]:=p;
      write(s);
  end;
end.