1. (Length(edit1.text)=0) or (Length(edit2.text)=0);

2. ShowMessage('Помилка введення даних. #13 Заповніть поля.')

3. ShowMessage(Помилка введення даних. +#13+Заповніть поля.)

4. ShowMessage('Помилка введення даних.' +#13+'Заповніть поля.')

1. Перед вами фрагмент коду з помилками, виберіть з запропонованих варіантів правильний запис:

procedure TForml.Button1Click(Sender: TObject);

begin

if (Length(edit1.text)=0) or (Length(edit2.text)=0)

then ShowMessage('Помилка введення даних. +#13+Заповніть поля.')

else writeln(db, edit1.text,' ',edit2.text);

end;

1. (Length(edit1.text)=0) or (Length(edit2.text)=0);

2. ShowMessage('Помилка введення даних. #13 Заповніть поля.')

3. ShowMessage(Помилка введення даних. +#13+Заповніть поля.)

4. ShowMessage('Помилка введення даних.' +#13+'Заповніть поля.')

77. Перед вами програма, виберіть рядок у якому є помилка:

1 Program suma1;

2 Var i, sum: integer;

3 begin

4 sum :=0;

5 for i := 1 downto 50 do

6 begin sum :=sum+i; end;

7 writeln (‘Сума чисел рівна: ‘ , sum);

8 end.

1. 2;

2. 5;

3. 7;

4. 8;

78. Перед вами програма, виберіть рядок у якому є помилка:

1 Program suma1;

2 Var i, sum: integer;

3 begin

4 sum :=0;

5 for i := 1 to 50 do

6 begin sum :=sum+i; end;

7 writeln (‘Сума чисел рівна: ‘ sum);

8 end.

1. 2;

2. 5;

3. 7;

4. 8;

79. Перед вами програма, виберіть рядок у якому є помилка:

1 Program suma1;

2 Var i, sum: integer;

3 begin

4 sum :=0;

5 for i := 1 to 50 do

6 begin sum :=sum+j; end;

7 writeln (‘Сума чисел рівна: ‘ , sum);

8 end.

1. 4;

2. 5;

3. 7;

4. 6;

80. Перед вами програма, виберіть рядок у якому є помилка:

1 Program suma1;

2 Var i, sum: integer;

3 begin

4 sum =0;

5 for i := 1 to 50 do

6 begin sum :=sum+i; end;

7 writeln (‘Сума чисел рівна: ‘ , sum);

8 end.

1. 4;

2. 5;

3. 7;

4. 6;

81. Яка буква буде накреслена на формі ( H, П, Т або Е) після виконання фрагменту коду:

MoveTo (50, 50); LineTo (50, 150);

MoveTo (50, 100); LineTo (100, 100);

MoveTo (100, 50); LineTo (100, 150);

82. Яка буква буде накреслена на формі ( H, П, Т або Е) після виконання фрагменту коду:

MoveTo (50, 50); LineTo (50, 150);

MoveTo (50, 50); LineTo (100, 50);

MoveTo (100, 50); LineTo (100, 150);

83. Яка буква буде накреслена на формі ( H, П, Т або Е) після виконання фрагменту коду:

MoveTo (50, 50); LineTo (100, 50);

MoveTo (75, 50); LineTo (75, 150);

MoveTo (75, 150); LineTo (75, 150);

84. Яка буква буде накреслена на формі ( H, П, Т або Е) після виконання фрагменту коду:

MoveTo (50, 50); LineTo (50, 150);

MoveTo (50, 50); LineTo (100, 50);

MoveTo (50, 100); LineTo (100, 100);

MoveTo (50, 150); LineTo (100, 150);

85. Перед вами фрагмент коду, виберіть з запропонованих варіантів значення Х та Y які дозволять намалювати квадрат:

MoveTo(50,50);

LineTo(100,50);LineTo(X,Y);LineTo(50,100); LineTo(50,50);

1. X=100; Y=50;

2. X=200; Y=100;

3. X=100; Y=100;

4. X=150; Y=50;

86. Перед вами фрагмент коду, виберіть з запропонованих варіантів значення Х та Y які дозволять намалювати квадрат:

MoveTo(50,50);

LineTo(100,50);LineTo(100,100);LineTo(X,Y); LineTo(50,50);

1. X=50; Y=100;

2. X=50; Y=200;

3. X=200; Y=50;

4. X=50; Y=50;

87. Перед вами фрагмент коду, виберіть з запропонованих варіантів значення Х та Y які дозволять намалювати квадрат:

MoveTo(50,50);

LineTo(100,50);LineTo(100,100);LineTo(50,100); LineTo(X,Y);

1. X=100; Y=50;

2. X=50; Y=50;

3. X=200; Y=100;

4. X=150; Y=100;

88. Перед вами фрагмент коду, виберіть з запропонованих варіантів значення Х та Y які дозволять намалювати квадрат:

MoveTo(50,50);

LineTo(X,Y);LineTo(100,100);LineTo(50,100); LineTo(50,50);

1. X=100; Y=150;

2. X=200; Y=100;

3. X=50; Y=100;

4. X=100; Y=50;

89. Перед вами програма, яка сумує числа від 1 до 50, виберіть рядок у якому є помилка:

1 Program suma2;

2 Var i, sum: integer;

3 Begin sum :=0; i :=0;

4 Repeat i := i +1; sum :=i;

5 Until i = 50;

6 writeln (‘Сума чисел рівна: ‘ , sum);

7 end.

1. 3;

2. 4;

3. 5;

4. 6;

90. Перед вами програма, яка сумує числа від 1 до 50, виберіть рядок у якому є помилка:

1 Program suma2;

2 Var i, sum: integer;

3 Begin sum :=0; i :=0;

4 Repeat i := i +1; sum :=sum+i;

5 Until i = 50;

6 writeln (‘Сума чисел рівна: , sum');

7 end.

1. 3;

2. 4;

3. 5;

4. 6;

91. Перед вами програма, яка сумує числа від 1 до 50, виберіть рядок у якому є помилка:

1 Program suma2;

2 Var i, sum: real;

3 Begin sum :=0; i :=0;

4 Repeat i := i +1; sum :=sum+i;

5 Until i = 50;

6 writeln (‘Сума чисел рівна: ‘ , sum);

7 end.

1. 2;

2. 4;

3. 5;

4. 6;

92. Перед вами програма, яка сумує числа від 1 до 50, виберіть рядок у якому є помилка:

1 Program suma2;

2 Var i, sum: integer;

3 Begin sum :=0; i :=0;

4 Repeat i := i +1; sum :=sum+i;

5 Until i := 50;

6 writeln (‘Сума чисел рівна: ‘ , sum);

7 end.

1. 2;

2. 4;

3. 5;

4. 6;

93. Перед вами програма, яка сумує числа від 1 до 50, виберіть рядок у якому є помилка:

1 Program suma3;

2 Var i sum: integer;

3 Begin sum :=0; i :=0;

4 While i <50 do

5 Begin i := i +1; sum :=sum+i; end;

6 writeln (‘Сума чисел рівна: ‘ , sum);

7 end.

1. 2;

2. 4;

3. 5;

4. 6;

94. Перед вами програма, яка сумує числа від 1 до 50, виберіть рядок у якому є помилка:

1 Program suma3;

2 Var i, sum: integer;

3 Do sum :=0; i :=0;

4 While i <50 do

5 Begin i := i +1; sum :=sum+i; end;

6 writeln (‘Сума чисел рівна: ‘ , sum);

7 end.

1. 3;

2. 4;

3. 5;

4. 6;

95. Перед вами програма, яка сумує числа від 1 до 50, виберіть рядок у якому є помилка:

1 Program suma3;

2 Var i, sum: integer;

3 Begin sum :=0; i :=0;

4 While i >50 do

5 Begin i := i +1; sum :=sum+i; end;

6 writeln (‘Сума чисел рівна: ‘ , sum);

7 end.

1. 2;

2. 4;

3. 5;

4. 6;

96. Перед вами програма, яка сумує числа від 1 до 50, виберіть рядок у якому є помилка:

1 Program suma3;

2 Var i, sum: integer;

3 Begin sum :=0; i :=0;

4 While i <50 do

5 Begin i := i +1; sum :=sum*i; end;

6 writeln (‘Сума чисел рівна: ‘ , sum);

7 end.

1. 2;

2. 4;

3. 5;

4. 6;

97. Перед вами фрагмент програми, виберіть рядок у якому є помилка:

1 Program matruca;

2 var i,j,sum,m dob:integer;

3 MA:array[1..i] of integer;

4 begin m:=100;

5 for i:=1 to m do

6 begin writeln('Введіть " ', i, ' " елемент матриці А');

7 readln (MA[i]); end; end;

1. 3;

2. 4;

3. 5;

4. 6;

98. Перед вами фрагмент програми, виберіть рядок у якому є помилка:

1 Program matruca;

2 var i,j,sum,m dob:integer;

3 MA:array[1..100] of integer;

4 begin m:=0;

5 for i:=1 to m do

6 begin writeln('Введіть " ', i, ' " елемент матриці А');

7 readln (MA[i]); end; end;

1. 3;

2. 4;

3. 5;

4. 6;

99. Перед вами фрагмент програми, виберіть рядок у якому є помилка:

1 Program matruca;

2 var i,j,sum,m dob:integer;

3 MA:array[1..100] of integer;

4 begin m:=100;

5 for i:=1 to m do

6 begin writeln('Введіть " ', i, ' " елемент матриці А');

7 readln (MA(i)); end; end;

1. 3;

2. 4;

3. 6;

4. 7;

100. Перед вами фрагмент програми, виберіть рядок у якому є помилка:

1 Program matruca;

2 var i,j:real;

3 MA:array[1..100] of integer;

4 begin m:=100;

5 for i:=1 to m do

6 begin writeln('Введіть " ', i, ' " елемент матриці А');

7 readln (MA[i]); end; end;

1. 2;

2. 3;

3. 5;

4. 6;

101. Чому дорівнює значення змінної k після виконання фрагменту програми: k:=5; for i:=1 to 5 do k:=k*2;

1. 200

2. 160

3. 80

4. 20

102. Чому дорівнює значення змінної k після виконання фрагменту програми: k:=1; m:= -5; for i:=1 downto m do k:=k+1:

1. 7

2. 8

3. 6

4. 9