Решение задач 27-10-2021(9 класс)

//упражнение 1-a)
 program pr3_a;
var str:string;
simv:char;
i,k:integer;
Begin
 str:='ivan ivanov' ;
 writeln('vvedite simvol');readln(simv);

 for i:=1 to length(str) do
 if str[i]=simv then k:=k+1;

 if k>0 then writeln('такой символ есть') else writeln('нет такого символа');
end.

// упражнение 1-b)
 program pr3_b;
var str,str1:string;
simv:char;
i,n:integer;
Begin
 str:='ivan ivanov' ;
  n:=pos(' ',str);
 // 1 способ
 str1:=copy(str,1,n-1);

 //2 способ
 for i:=1 to n-1 do
 str1:=str1+str[i];

 writeln(str1);
end.

//упражнение 1-в)
 program pr3_v;
var str,str1:string;
simv:char;
i,n:integer;
Begin
 str:='ivan ivanov' ;
  n:=pos(' ',str);
 for i:=n+1 to length(str) do
 str1:=str1+str[i];
 writeln(str1);
end.