1
a)
program pr;
var
s: string;
c: char;
i: integer;
begin
writeln('введите имя и фамилию в одной строке');
readln (s);
writeln('введите заданный символ');
readln (c);
for i: =1 to length(s) do if s[i]=c then writeln ('в строке найден заданный символ');
readln;
end.
б)
program pr;
var
s,n: string;
c: char;
i: integer;
begin
writeln('введите имя и фамилию в одной строке');
readln (s);
i: =1;
while s[i]< > ' ' do i: =i+1;
n: =copy(s,1,i-1);
writeln(n);
readln;
end.
в)
program pr;
var
s,n,f: string;
c: char;
i: integer;
begin
writeln('введите имя и фамилию в одной строке');
readln (s);
i: =1;
while s[i]< > ' ' do i: =i+1;
n: =copy(s,1,i-1);
f: =copy(s,i+1,length(s)-i+1);
writeln(n);
writeln(f);
readln;
end.
program pr;
var s: string;
begin
s: ='касіу ясь канюшыну';
delete (s,7,3);
insert ('ясь',s,7);
writeln (s);
readln;
end.
3
а)
program pr;
var
s: string;
begin
s: ='реки горы и болота';
delete (s,6,5); {удаляем включая пробел}
writeln (s);
readln;
end.
б)
program pr;
var
s: string;
begin
s: ='реки горы и болота';
delete(s,13,6);
s: =s+'озера';
writeln (s);
readln;
end.
