Начало формы

41

Баллов: 1

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

var x, y: real;

x:= -5; y:= -1; if x > y then x:= y;

Укажите правильный ответ:

Выберите один ответ.

	a. x = -1; y = -5.
	b. x = -5; y = -1.
	c. x = -1; y = -1.

42

Баллов: 1

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

var x, y, z: real;

begin

x:= 7; y:= 3; z:= 0;

if x > y then z:= x else z:= y;

Укажите правильный ответ:

Выберите один ответ.

	a. x = 7; y = 3; z = 3.
	b. x = 7; y = 3; z = 7.
	c. x = 7; y = 3; z = 0.

43

Баллов: 1

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

var x, y, z: real;

x:= 1; y:= 1; z:=0;

if x > 0 then begin if y > 0 then z:= 1 end else z:= 2;

Укажите правильный ответ:

Выберите один ответ.

	a. x = 1; y = 1; z = 1.
	b. x = 1; y = 1; z = 2.
	c. x = 1; y = 1; z = 0.

44

Баллов: 1

Выполните действия, предписываемые данной программой. Определите результирующие значение переменной d

var x, y, z, d: real;

begin

x:= 7; y:= 3; z:= 0;

if x > y then d:= y else d:= x; 

if d > z then d:= z; 

Укажите правильный ответ:

Выберите один ответ.

	a. d = 7
	b. d = 0
	c. d = 3

program test2;

{$APPTYPE CONSOLE}

uses

SysUtils;

var d: integer;ch: Char;

begin

ch:= '9';

case ch of

'0'..'9': d:= Ord(ch) - Ord('0');

'a'..'f': d:= Ord(ch) - Ord('a') + 10;

'A'..'F': d:= Ord(ch) - Ord('A') + 10;

else d:= -1;

end;

writeln('d=',d);

readln;

end.