ДАНО СЛОВО ДЛИНОЙ НЕ МЕНЕЕ 8 СИМВОЛОВ НАПИСАТЬ ПРОГРАММУ КОТОРАЯ ПЕРЕНОСИТ 1 БУКВУ В КОНЕЦ СЛОВА
uses crt;
var
s:string;p:char; i:integer;
begin
write(Введи слово, в котором не менее 8 букв: ); readln(s);
if length(s)<8 then write(Вы ввели слишком короткое слово.)
else
begin
p:=s[1];
for i:=1 to length(s) do
s[i]:=s[i+1];
s[i]:=p;
write(s);
end;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
