Задание 1. «Составление новых слов»
Условие: Из слов «информация» и «математика» составить новое слово «информатика».
Пример выполнения: Из слов «вода» и «падение» составить новое слово «водопад».
Program Slova;
var a, b, c : string;
begin a:= ‘вода’; ВОДОПАД
b:= ‘падение’;
c:= Copy(a,1,3) + Copy(a,2,1) + Copy(b,1,3)
writeln(c)
end.
Задание 2. «Подсчет количества»
Условие: В заданной строке подсчитать количество сочетаний ‘ый’ (строка на русском языке вводится с клавиатуры).
Пример выполнения: В заданной строке подсчитать количество букв ‘я’ (строка на русском языке вводится с клавиатуры).
Program kolichestvo;
var s : string;
i, k : integer;
begin
writeln (‘введите строку на русском языке’);
readln(s);
k:=0;
for i:=1 to Length(s) do
if copy(s,i,1)= ‘я’ then k:=k+1;
writeln(‘количество букв «я» - ’,k);
end.
Задание 3. «Замена, удаление символов»
Условие: Из заданной строки получить новую, заменив все фразы “так как” на сокращенное “т.к.”
Пример выполнения: Из заданной строки (s) получить новую(t), заменив все пробелы на точки. Распечатать полученную строку.
Program zamena;
var s, t: string;
i : integer;
begin writeln (‘введите строку на русском языке’);
readln(s);
t:= ‘’;
for i:=1 to Length(s) do
if copy(s,i,1)= ‘_’ then t:=t+ ‘.’
else t:=t+ copy(s,i,1);
writeln(‘новая строка ’);
writeln(t);
end.