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


Begin Write (‘Katardin manin engiz:’);readln (x)



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

Begin Write (‘Katardin manin engiz:’);readln (x);
Repeat
K:=pos(‘{‘,X);if K>0 Then Begin I:=Pos(‘}’,X);
If I>K Then Delete(X,K,I-K+1) End;
Until K=0;
Writeln (‘Katardin gana mani X=’,X);Readln End.


18.Берілген сөздің екі жаққа да бірдей жазылып оқылатынын анықтау программасын құру
Program kat17;
Var X,Y:String;K:Byte;
Begin Write (‘Katardin manin engiz:’);Readln (X);Y:=’’;
For K:=Length (X) Downto 1 Do Y:=Y+Copy(X,K.1);
If X=Y then Writeln (‘eki gakka da birdei’) Else Writeln (‘birdei emes’);
Readln End.


19.Әртүрлі тіркестермен амалдар қолдана отырып программа құрыңыз.
Program Katar18;
Var X:String[17];Y,A,B,C:String;N,M,Z,P:Integer;
Begin X:=’oblistik gimnazia’;
Z:=Length(x);
P:=Pos(‘azia’,’oblistik gimnazia’);
Readln (N,M);


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




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

    Басты бет