1) 1_st
2) k 1
3) Summa
4) Single
5) int_4
(3,5)
B Укажите числовые типы данных
1) Integer
2) LongInt
3) Boolean
4) String
5) Double
(1,2,5)
B Укажите, после выполнения каких операторов значение переменной k станет равно 1, если a = 8 и b = 6:
1) If (a > b) And (b > 7) Then k := 0 Else k := 1;
2) If (a < b) Or (b > 7) Then k := 1 Else k := 0;
3) If (a > b) Or (b > 7) Then k := 1 Else k := 0;
4) If Not (a = 8) Then k := 1 Else k := 0;
5) If (a < b) Or Not (b > 7) Then k := 1 Else k := 0;
(1,3,5)
B Укажите операторы присваивания, в которых не нарушен синтаксис
1) x := y + 3 +;
2) x := x + 2 +1;
3) x / 2 := y;
4) x := (y + 2) / y + 1);
5) x := y x + 1;
(2)
B Укажите фрагменты программ, в которых не нарушен синтаксис
1) var A : Integer;
begin
while (A > 0) do x := x + 1;
end;
2) var A : Boolean;
begin
while A do x := x + 1;
end;
3) var A : Boolean;
begin
while A
x := x + 1;
end;
4) var A : Integer;
begin
repeat A > 0
x := x + 1;
until;
end;
5) var A : Integer;
begin
repeat do
x := x + 1;
until A > 0;
end;
(1, 2)
СДанфрагментпрограммы
Y := A[1];
For k := 1 to 10 do
If A[k] < Y Then Y := A[k];
Write(Y);
в котором обрабатывается массив VarA:array[1..10] OfInteger: (2, 12, 0, -3, 10, -3, -5, 7, 21, 0).
После окончания работы значение переменной Y равно ___.
(-5)
С После выполнения фрагмента программы
x := -1; y := 1;z:= 0;
If x < 0 Then
begin
If y > 0 Then z := y + 1 Else z := y + 2;
If z <> 0 Then
z := z + 1;
end;
Write(z);
значение переменной z равно _____.
(3)
С После выполнения фрагмента программы
a:= 13305;
b := 0;
While a <> 0 Do
begin
b := b * 10 + a Mod 10;
a := a div 10;
end;
Write(b);
значение переменной b равно ___.
(50331)
С Дан фрагмент программы
Y := 0;
For N := 1 to 4 do
begin
X := A[N, 1];
For M := 1 to 4 do
If A[N, M] > X Then X := A[N, M];
Y := Y + X;
End;
Write(Y);
в котором обрабатывается массив A: array[1..4, 1..4] OfInteger:
После окончания работы значение переменной Y равно ___.
(21)
С После выполнения фрагмента программы
Fork:= 1 to 5 do
begin
Write(k);
If k >= 4 Then begin Write(k); Write(k + 1); end;
End;
Write(k);
на форму будет выведено ____ чисел.
(10)
(37 заданий 80 минут)