Инф олимпиада doc


Мәтінді оқып шығып,ондағы керек емес сөздерді алып тастайтын программа жаз



бет46/66
Дата08.02.2022
өлшемі91,93 Kb.
#123795
1   ...   42   43   44   45   46   47   48   49   ...   66
Байланысты:
1544775476 (1)

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.


Достарыңызбен бөлісу:
1   ...   42   43   44   45   46   47   48   49   ...   66




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет