Question

Составить программы на Паскале. ( темы: строковой тип, числовые функции)
1) из слова лекарство получить слова лево и лето.
2) используя процессы получить замену: нитка-нерка-норка-крика-книга-пурга.
3) Используя переменные: a:=кормила b:=ку c:=ка d:=ш e:=он f:=(пробел) получить предложение: кукушка кормила кукушонка.

Answer 1

PascalABC.NET
1)
var 
a:String = 'лекарство'; 
b,c,d:String;
begin
b:= copy(a,1,2);
c:= copy(a,7,1)+copy(a,9,1);
d:= copy(a,8,2);
WriteLn(b+c);
WriteLn(b+d);
end.

2)
var a:String = 'нитка';
begin
WriteLn(a);
a:= a.Replace('ит','ер');
WriteLn(a);
a:= a.Replace('е','о');
WriteLn(a);
a:= a.Replace('нор','кри');
WriteLn(a);
a:= a.Replace('рик','ниг');
WriteLn(a);
a:= a.Replace('кни','пур');
WriteLn(a);
end.

3)
var a,b,c,d,e,f:String;
begin
a:='кормила';
b:='ку';
c:='ка';
d:='ш';
e:='он';
f:=' ';
WriteLn(b+b+d+c+f+a+f+b+b+d+e+c);
end.