Продублировать символ - Free Pascal
Формулировка задачи:
Помогите, пожалуйста.
Продублировать символ ! если количество символов @ равно 4.
Решение задачи: «Продублировать символ»
textual
Листинг программы
var s:string;
i,k:byte;
begin
writeln('Введите строку, содержащую символы @ и !');
readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='@' then k:=k+1;
if k<>4 then write('В строке нет четырех символов @')
else
begin
for i:=length(s) downto 1 do
if s[i]='!' then insert(s[i],s,i);
write(s);
end;
readln
end.
Объяснение кода листинга программы
- Объявляются три переменные: s (строка), i (байт), k (байт).
- Выводится сообщение с просьбой ввести строку, содержащую символы @ и !.
- Вводится строка и сохраняется в переменной s.
- Переменная k инициализируется нулем.
- Происходит цикл по всем символам строки s.
- Если символ равен '@', то к переменной k прибавляется единица.
- Если переменная k не равна 4, то выводится сообщение «В строке нет четырех символов @».
- Если переменная k равна 4, то происходит обратный цикл по всем символам строки s.
- Если символ равен '!', то он вставляется в строку s в текущую позицию цикла.
- Выводится строка s.
- Программа ожидает ввода с клавиатуры.