Какое значение будет выведено в поле Edit1?

var X, Y, Z : Integer; A : Boolean;

begin

X : = 10; Y : = 12; Z : = 30;

A : = (X < Y) аnd (Y < Z) аnd (Z mod Y = 0) ;

Edit1. Text : = BoolToStr (A, False) ;

end;

Question

Информатика

Ташкиля

23 июля, 14:23

Какое значение будет выведено в поле Edit1?

var X, Y, Z : Integer; A : Boolean;

begin

X : = 10; Y : = 12; Z : = 30;

A : = (X < Y) аnd (Y < Z) аnd (Z mod Y = 0) ;

Edit1. Text : = BoolToStr (A, False) ;

end;

+4

Ответы (1)

Знаете ответ?

Катти · Answer 1

Подставим значения в условия и построим логическое выражение:

(10 < 12) ∧ (12 < 30) ∧ (30 mod 12 = 0)

Если условие выполняется, пишем 1 (true), если нет - 0 (false) :

(1 ∧ 1 ∧ 0) = 0

Второй параметр BoolToStr, отвечает за то, в каком виде будет выведено значение логической переменной. Если второй параметр BoolToStr выбран как False, значит в Edit1. Text будет выведено его значение в численном виде, т. е. 0.

Если бы строка была записана как Edit1. Text : = BoolToStr (A, True) ; то в Edit1. Text было бы выведено значение переменной A в текстовом виде, т. е. False.

Какое значение будет выведено в поле Edit1?var X, Y, Z : Integer; A : Boolean;beginX : = 10; Y : = 12; Z : = 30;A : = (X < Y) аnd (Y < Z) аnd (Z mod Y = 0) ;Edit1. Text : = BoolToStr (A, False) ;end;

Какое значение будет выведено в поле Edit1?

var X, Y, Z : Integer; A : Boolean;

begin

X : = 10; Y : = 12; Z : = 30;

A : = (X < Y) аnd (Y < Z) аnd (Z mod Y = 0) ;

Edit1. Text : = BoolToStr (A, False) ;

end;