15.Алдындағы мәтіннің екінші түрін жаз
program z 1 11v;
Var s:String;I,x,x1,cod,K,sum:Integer;
Begin
Writeln ;Writeln (‘matin engiz’);readln(s);
K:=Length (s);sum:=0;
For I:=1 to K do Begin
Val (s[I],x,cod);
If cod=0 then begin sum:=sum+1;x1:=x end;
End;
If (sum=1) and(x1=K) then
Write (‘matinnin uzindigi’)
Else Write(‘gok’);
Readln End.
16.Кез-келген жолдық қатардың латын алфавитінің кіші әріптерін бас әріпке айналдыру программасын құрыңыз
program kat16;
Var X:String;K:Byte;
Begin Write (‘katardin manin engiz:’);readln (X);
For K:=1 To Length(x) Do x[K]:=Upcase (X[K]);
Writeln (‘katardin gana mani X=’,X);
Readln End.
17.Х қатарындағы фигуралық жақшалар ішінде тұрған фрагменттерді алып тастап шығару программасы
program katar 18;
Type Katar=String;
Var X:Katar;K,I:Byte;
Достарыңызбен бөлісу: |
