1. A:=’водопровод’; delete(A,1,4); Результат типа string А:=….. *
Your answer
2. A:=’лось’; B:=’со’; insert(B,A,3); Результат типа string А:= … *
Your answer
3. Восстановите исходные данные (строку SL1), если после выполнения оператора присваивания SL2:=copy(SL1, 7, 2)+copy(SL1, 3, 4)+SL2[2]; получается SL2=’наличие’ *
4. Определите фрагмент программы, который из слова S1:=‘дисковод’ получает слово «воск» *
5. Определите результат работы фрагмента программы: var S1, S2:string; k: integer; begin S1:=’abcdef’; k:=pos(‘cd’, S1); S2:=copy(S1, k, 3); writeln(S2); end. *
Your answer
6. Что будет выведено в результате выполнения программы: var a, c, b, d, r: string; begin a:='КИЛОБАЙТ'; c:='0987654321'; d:=copy (a,5,4); b:=copy(c,6,3); r:=b+d; writeln(r); end. *
Your answer
7. Определите результат выполнения программы: var a, b, c, d, r: string; k: word; Begin a :=‘информатика’; b :=‘бит’; k := length(b); c := copy (a, 2*k, k-1); d := copy (a, 3*k+1, k-2); r := c+d; writeln (r); end. *
Your answer
8. Укажите, какие из указанных ниже выражений допустимы в Паскале, если: *
Var a1, a2 : string; b1, b2: string[80]; с: string[5];
Required
9. Определите значение переменной k: Str1:=’mnk’; Str2:=’lmnk’; k:=Pos (Str1,Str2); *
10. Определите значение переменной k: S:=’12+1’; Val (S, n, k); *
Your answer
11.Определите значение переменной Str2: Str1:=’1234’; Str2:=Copy (Str1, 2, 3); *