Question

Задание 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.

Answer 1

Ответ: №1 var a,b,c:string;

begin

 a:='информация';

 b:='математика';

 c:=copy(a,1,7)+copy(b,7,11);

 writeln(c)

end.

№2 var s : string;

i, k : integer;

begin

writeln ('введите строку на русском языке');

readln(s);

k:=0;

for i:=2 to Length(s) do

if copy(s,i,2)= 'ый' then k:=k+1;

writeln('количество букв «ый» - ',k);

end.

№3 var s,t:string;

   i:byte;

begin

writeln('Введите строку на русском языке');

readln(s);

i:=1;

while i<=length(s) do

begin

 if copy(s,i,7)<> 'так как'

 then

  begin t:=t+ copy(s,i,1);

   i:=i+1

  end

 else

  begin

   t:=t+'т.к.';

   i:=i+7

  end;

 end;

writeln('новая строка');

write(t)

end.