Начальные сведения о Паскаль. Циклы и ветвление

1. -30

2. -120

3. 120

4. 30

5. 40

Вопрос 12. В результате выполнения программы получено «принадлежит». Определите х и y: if (x = 0) and (x = 0.5) then write('принадлежит') else write('не принадлежит');

1x:=1.3; y:=0.7;

2.x:=3.2; y:=0.7;

3.x:=3.15; y:=1.7;

4.x:=3.18; y:=1.3;

5.x:=1.3; y:=1.3;

Вариант 2

Вопрос № 1 
Если решение задачи зависит от некоторого условия (структура ветвление), то в программе используется следующая конструкция

 Begin ... End
 For ... to ... do
 While ... do
 If ... Then ... Else
 Write ... Readln

Вопрос № 2 
Определите значения переменных x и y после выполнения следующего фрагмента программы? 
x := 8; y:=2; 
if x y then begin x := x - y; y:= x; end 
else begin y := y - x; x := y; end;

 x = 6, y = 6
 x = -6, y = -6
 x = 6, y = 8
 x = 2, y = -6
 x = 6, y = -6

Вопрос № 3 

Укажите условия задач, для решения которых необходимо использовать ветвление.

 Вывести два числа в порядке возрастания их значений
 Определить хватит ли денег на покупку товара
 Определить размер сдачи при покупке товара
 Определить площадь и периметр прямоугольника
 Определить, что больше площадь или периметр прямоугольника

Вопрос № 4 
Укажите условия задач, для решения которых необходимо использовать повторение (команды цикла).

 Вывести на экран столбец умножения.
 Определить через сколько лет сумма вклада удвоится.
 Вывести на экран таблицу связи РУБЛЬ - ДОЛЛАР из восьми строк.
 Определить площадь и периметр прямоугольника.
 Определить, что больше площадь или периметр прямоугольника.

Вопрос № 5 
Определите значение переменной n после выполнения следующего фрагмента программы? 
k:=0; n:=2; 
For i:=1 to 4 do begin 
k:=k + 1; 
n:=n * k 
End

Вопрос № 6 
Определите значение переменной k после выполнения следующего фрагмента программы? 
k:=10; n:=5; 
While n k:=k + 1; 
n:=n + k 
End;

Вопрос № 7 
Определите что появится на экране компьютера (в последней строке) после исполнения данного фрагмента программы? На запрос компьютера было введено значение: 5. 
readln (x); a := 3; 
for i := 1 to 2 do begin 
b := a * x; 
writeln (b) 

Вопрос № 8 
Укажите все значения a, при которых после исполнения фрагмента программы получится ответ b = 3 
if a5 then b := a - 7 else b := 5 - a; 
В ответе запишите найденные значения a через пробел в порядке возрастания.

Вопрос 9 Выберите запись условного оператора без ошибок

1. If (A0) and (A

2. If (A0) and (A

3. If (A0 and (A

4. If (A0) and (A

5. If (A0) and (A

Вопрос 10. Выберите строку, в коорой все операторы записаны верно

1. program; var; began; end; write; readln;

2. program; var; begin; end; writeln; readln;

3. program; war; begin; end; writeln; readln;

4. program; var; begin; end; wrateln; read;

5. program; var; begin; end; writeln; readln;

Вопрос 11. Определите значение “c”: a:= 40;b:= 10;b:=-a/2*b; c:=a+b; if a