11.Мәтінді оқып шығып,ондағы керек емес сөздерді алып тастайтын программа жаз. Program z1 7;
Var S:String;n,K:Integer;
Begin
Writeln (‘matindi oki’);readln (s);
N:=1;K:=Length(s);
While nIf s[n]=’’then begin delete (s,n,1);K:=K-1 End Else
N:=N+1;
Write(S);
Readln End.
12.Мәтінді оқып шығыңыз да,әр мәтіннен кейін сөздерді қысқартатын программа құрыңыз. Program z 1 8;
Var S:String;N,K:Integer;
Begin
Writeln (‘matindi engiz’);readln (s);
N:=1;K:=Length(s);
While nIf s[n]=’’then begin insert(‘’s,n);K:=K+2;N:=N+3 End
Else N:=n+1;
Write (S);
End.
13. Берілген мәтінді кері жазатын программа жаз. Program z1 9;
Var S:String;I,k:Integer;
Begin
Writeln; Writeln (‘matin engiz’);readln (s);
K:=Length(s);
For I:=k downto 1 do write(s[I]);
Readln End.
14.Мәтіндегі сөздерді санға айналдыратын программа жаз program z 1 11a;
Var S:String;I,x,cod,flag,K:Integer;
Begin
Writeln ;Writeln (‘matindi engiz’);readln(s);
K:=length(s);flag:=0;
For I:=1 to k do begin
Val (s[I],x,cod);
If (cod<>0) or(x>6) then flag:=1
End;
If flag =0 then write (‘7-lik formada san bolip tabiladi’)
Else write (‘7-lik formada san bolip tabilmaidi’);
Readln End.
