Составить программу на языке паскаль которая 1.Из слов, "биология", «магазин»,"зоопарк" – составить слово "зоология", зоомагазин, подсчитать сколько в них букв
2. В тексте имеется символ "%", сколько раз он встречается.
3. В тексте удалить все скобки.

Предыдущий
вопрос Следующий
вопрос

Программа на языке Pascal:

program WordManipulation;
var
word1, word2, word3, word4: string;
text: string;
countPercent, i: integer;
begin
word1 := 'биология';
word2 := 'магазин';
word3 := 'зоопарк';
word4 := copy(word3, 1, 3) + copy(word1, 3, 6);
writeln(word4);
writeln('Длина слова: ', length(word4));
text := 'Текст с символом %, и еще несколько %, вот так %';
countPercent := 0;
for i := 1 to length(text) do
begin
if text[i] = '%' then
countPercent := countPercent + 1;
end;
writeln('Количество символов "%" в тексте: ', countPercent);
i := 1;
while i <= length(text) do
begin
if (text[i] = '(') or (text[i] = ')') then
delete(text, i, 1)
else
i := i + 1;
end;
writeln('Текст без скобок: ', text);
end.

Эта программа из слов "биология", "магазин" и "зоопарк" формирует слова "зоология" и "зоомагазин", подсчитывает и выводит длину каждого слова, затем подсчитывает количество символов "%" в тексте и удаляет все скобки из текста.