Var a, b: integer;
Begin
Read (a, b, a);
Writeln ( ‘A+B=’‚ a+b,’ A=’, a);
End.
а) 9 4. ә) A+B=9 A=4 . б) A+B=11 A=6.
в) A+B=11 A=4. г) 11 6.
16. Айнымалыларды сипаттауға байланысты бағдарламаның орындалу нәтижесіндеэкранға не шығарылатынын көрсетіңіз. Var i, j, m: integer;
Begin
j:= trunc( 1.56*10);
k:= round( 1.56*10);
i:= j div 3;
m:=k+3;
Writeln ( ‛i=’, i, ‛j=’, j, ‛k=’, k, ‛m=’, m);
End.
а) i=5 j=15 k=16 m=19 б) i=5 j=17 k=16 m=19
ә) i=5 j=16 k=14 m=19 в) i=5 j=14 k=15 m=19
г) i=5 j=13 k=16 m=19
17. ST тіркесінің ST1 тіркесіне кіретінін анықтайтын функцияны көрсетіңіз
а) POS (ST, ST1). ә) COPY(ST1, ST1,3)
б)INSERT (ST, ST1,6) в) STR (ST, ST1)
г) LENGTH (ST1)
18. S тіркесі элементтерінің кіші әріптерін сәйкес бас әріптерге ауыстыратын функцияны көрсетіңіз.
а)UPCASE (S [I]). ә) STR (S, I ). б) POS (S [I], I).
в) ORD(S [I]) . г) LENGTH (S [I]) .
Достарыңызбен бөлісу: |
