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

Алдындағы мәтіннің екінші түрін жаз

жүктеу/скачать 91,93 Kb. бет 47/66 Дата 08.02.2022 өлшемі 91,93 Kb. #123795

Бұл бет үшін навигация:

• 16.Кез-келген жолдық қатардың латын алфавитінің кіші әріптерін бас әріпке айналдыру программасын құрыңыз program kat16; Var X:String;K:Byte;
• 17.Х қатарындағы фигуралық жақшалар ішінде тұрған фрагменттерді алып тастап шығару программасы program katar 18; Type Katar=String; Var X:Katar;K,I:Byte;

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; жүктеу/скачать 91,93 Kb. Достарыңызбен бөлісу: