Урок 7.Тестирование

### 1.Что будет выведено на экран в результате выполнения программы?
Program My10;
Var a, b,c: Integer;
Begin
a := 5;
b := 4;
c := 3;
if a>b then x:=a+b
else
begin a:=b+c;
x:=a-3*b;
end;
WriteLn (‘x =’, x);
End.

### 2. В каком из условных операторов допущена синтаксическая ошибка:

if B = 0 then Writeln('Деление на нуль невозможно.');
if a > b then max := a else max := b;
if (a>b) and (b>0) then c:=a+b;
if a < b then min := a; else min := b;

### 3.Что будет выведено на экран в результате выполнения программы?
Program My10;
Var a, b,c: Integer;
Begin
a := 9;
b := 8;
c := 2;
if (b) and (b>c) then x:=2*a+b+c
else
x:=a-b+c;
WriteLn (‘x =’, x);
End.

### 4.Что будет выведено на экран в результате выполнения программы?
Program My10;
Var a, b: Integer;
Begin
a := 53;
b := 14;
if a<=b then x:=a+b
else
a:=b+c;
x:=2*a-b*4;
end;
WriteLn (‘x =’, x);
End.

Нажмите на кнопку для завершения теста: