Переставить первые три и последние три буквы слова, сохранив порядок их следования - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

2. Дано слово. Переставить первые три и последние три буквы, сохранив порядок их следования. Задачу решить без с использования оператора цикла, решать без массива

Решение задачи: «Переставить первые три и последние три буквы слова, сохранив порядок их следования»

textual
Листинг программы
uses crt;
var s:string;
begin
clrscr;
repeat
writeln('Введите слово из не менее 6 букв');
readln(s);
until length(s)>5;
s:=copy(s,length(s)-2,3)+copy(s,4,length(s)-6)+copy(s,1,3);
write(s);
readln
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Turbo Pascal. Код начинается с использования библиотеки crt, которая предоставляет функции для работы с консолью. Затем объявляется переменная s типа string, которая будет использоваться для хранения введенного пользователем слова. Далее идет цикл repeat-until, который продолжается до тех пор, пока длина введенного слова не превышает 5 символов. Внутри цикла пользователю предлагается ввести слово из не менее чем 6 букв. После получения слова, его значение сохраняется в переменной s. Затем происходит перестановка первых трех и последних трех букв в слове, используя функции copy и length. Наконец, полученное слово выводится на экран с помощью функции write, а затем происходит чтение следующего ввода с помощью функции readln. Таким образом, данный код позволяет пользователю вводить слово, переставлять его буквы и выводить полученное слово на экран.

Оцени полезность:

6   голосов , оценка 4 из 5
Похожие ответы