Var st,st1:string;

Begin

St:='abcdef'; St1:= copy(st,3,2);

End;

Значение переменной st1 равно

"cd''

Дан фрагмент программы

Var st:string

Begin

St:='abcdef'; delete(st,2,3);

End;

значение St после операции равно

"aef"

Даны множества М1 и М2: M1:=[1,2,3,4]; M2:=[3,4,1].

Для них определена операция? М3:=М1–М2 множество М3 равно

[2]

Даны множества М1 и М2.

M1:=['А','Б','С']; M2:= ['С'] ]

М3:=М1*М2

множество М3 равно

['А','Б','С']

Для изображения какого узора используется следующий фрагмент программы:

x:=100;

y:=100;

r:=5;

for i:=1 to 5 do

begin

circle (x, y, r);

r:=r+5;

end.

из 5-ти концентрических окружностей

Для изображения какого узора используется следующий фрагмент программы:

x:=100;

y:=100;

r:=5;

for i:=1 to 5 do

begin

circle (x, y, r);

y:=y+2*r;

end.

из 5-ти окружностей, расположенных по вертикали

Для изображения какого узора используется следующий фрагмент программы:

x:=100;

y:=100;

r:=5;

for i:=1 to 5 do

begin

circle (x, y, r);

x:=x+r;

y:=y+r;

end.

из 5-ти пересекающихся окружностей

Для изображения какого узора используется следующий фрагмент программы:

x:=100;

y:=100;

r:=5;

for i:=1 to 5 do

begin

circle (x, y, r);

x:=x+3*r;

y:=y+4*r;

end.

из 5-ти непересекающихся окружностей

С помощью какого оператора можно нарисовать сектор размером 3/4 площади круга? - Sector (100,100,90,360,50,50)

С помощью какого оператора можно нарисовать эллиптический сектор размером 1/2 площади эллипса? - Sector (100,100,90,270,50,100)

С помощью какого оператора можно нарисовать дугу окружности размером 3/4-ти длины? - arc (100, 100, 90, 360, 150)

Выберите правильную запись числа 2,34 в экспоненциальной форме - 0.234E1

Какое утверждение неверно - Точка с запятой (;) называется пустым оператором

Укажите диапазон значений переменной, имеющей тип integer в Turbo Pascal - -32768..32767

Укажите размер в байтах, занимаемый переменной типа real. - 6

Укажите диапазон значений переменной, имеющей тип byte в Turbo Pascal - 0..255

Укажите стандартную функцию, которая вычисляет порядковый номер элемента порядкового типа X -ord(X)

Имеется выражение:

b := a;

Укажите, каких типов могут быть переменные a и b с учетом правил совместимости типов

a: integer; b : real;

Укажите неправильно записанный оператор среди перечисленных вариантов. - if x and y then s:=s+1; else s:=s-1;

Выберите верное утверждение - После слова then в операторе if может стоять только один оператор

Определите значение переменной S после выполнения следующих операторов:

S:=0; i:=1;

repeat

s:=S+1/i;

i:=i-1;

until i<=1;

1

Выберите бесконечный цикл:

i:=0; while true do i := i + 1;

Выберите верное утверждение для цикла: for i:= A to B do S;

если значение B меньше, чем значение A.

Оператор S не выполнится ни разу

Выберите верное утверждение для цикла:

for i:= A downto B do S;

если значение B больше, чем значение A.

Оператор S не выполнится ни разу

Определить результат выполнения фрагмента программы:

X:=0;

for i: = 4 downto 1 do X: = X+I;

writeln(X);

10

Определить результат выполнения фрагмента программы:

b:= 4;

for J: = 1 to B do X: = J;

writeln(X - B + 7);

7

Определить результат выполнения фрагмента программы:

X = 4; S:=0;

while X>0 do begin

S:=S+X; X:=X div 2;

end;

writeln(S);

7

Определите значение переменной S после выполнения следующих операторов:

S:=3;

for i:=1 to 5 do; S:=S+i;

writeln(S);

8

Определите значение переменной S после выполнения следующих операторов:

S:=0;

n:=1;

for i:=2 to n do

S:=S+1/i;

0