Question

Нужна 1. с клавиатуры вводят слово и символ. составть программу, которая: а) проверяет, есть ли в этом слове заданный символ; б) определяет позицию заданного символа; в) подсчитывает количество вхождений заданного символа. 2.
с клавиатуры вводят строку и слово. составть программу, которая: а) определяет позицию заданного слова; б) удаляет заданное слово; в) вставляет в строку заданное слово. 3. составть программу, которая: а) из строки "волга,
днепр, неман, енисей" удаляет названия рек, не протекающих по территории беларуси; б) из строки "брест, бобруйск, витебск, гомель, мозырь, могилев" удаляет названия городов, не являющихся областными центрами. 4. составть
программу, которая: а) в строке "край озер" добавляет слова "лесов и рек"; б) в строке "я учусь в школе" заменить слова "в школе" на "в 10-ом классе". 5. составть программу, которая переставляет на первое место: а) в строке "моя родина
беларусь" слово "беларусь"; б) в строке "люблю цябе мой родны кут" слова "мой родны кут".

Answer 1

Программа №4

Program str999;
Uses CRT;
Var
s: String;
Begin
Writeln('Введіте фразу');
read(s);
if (s='край озер') then
writeln ('Край озер лесов и рек');
if (s='Я учусь в школе') then
writeln ('Я учусь в 10-м классе')
end.

Задание №5

Program p_1;
Uses CRT;
Var
s: String;
Begin
Writeln('Введите фразу');
read(s);
if (s='моя родина Беларусь') then
writeln ('Беларусь моя родина');
if (s='люблю цябе мой родны кут') then
writeln ('мой родны кут люблю цябе')
end.