3.Мәтіндегі фамилиялар тізбегін берілген әріпке енгізу
керек.
Program z12 8;
Var i,m,I,k,d:longint;t,a:string;
Begin Writeln;Write (‘matin engiz’);readln(t);t:=t+’’;
I:=Length(t);write (‘berilgen aripti engiz’);readln(a);
K:=I;
For I:=1 to I do Begin
If copy(t,i,1)=’’then begin
If copy(t,k,1)=a then write (‘’,copy(t,k,I-K));
K:=I+1;
End;
End;
Readln;
End.
4.Орыс алфавитімен сөздер берілген.Бұл сөздердің дұрыс,дұрыс еместігін тексер
program z12 10;
var I,I,j,s:integer;a,b,t:string;K:array[1…255] of integer;
begin
a:=’АБВГДЕЖЗИКЛМНШЩХЧСЯЭЪЬЮ’;
Write (‘oris aripterin matinge engiz’);read(t);
I:=length(t);
For I:=1 ToI Do Begin
B:=copy(t,I,1);
For j:=1 to 32 do If b=copy(a,j,1) then k[I]:=j;
End;
S:=0;
For I:=1 to I-1 do if k[I+1]>=k[I] then s:=s+1;
If s=I-1 then write (‘ia’) else (‘gok’);
Readln;
End.
Достарыңызбен бөлісу: |
