Зображення на либер офіс яблука ​

x > 2

x < 2

Объяснение:

Операция И имеет приоритет перед операцией ИЛИ

((Х < 3) и (X < 2)) или ((X > 2) и (X > 0))

Между двумя выражениями стоит операция ИЛИ, которая означает, что хотя бы одно из выражений должно быть истинным, чтобы всё выражение было истинным.

Возьмём первое выражение:

(Х < 3) и (X < 2)

Тут мы видим операцию И, которая указывает на то, что оба значения должны быть истинными, чтобы всё выражение было истинно, т. е. в данном выражении значение X должно быть < 2, чтобы выражение было истинным

(1 < 3) и (1 < 2) - true [истина]

(0 < 3) и (0 < 2) - true [истина]

и т. д.

Возьмём второе выражение:

(X > 2) и (X > 0)

Тут мы видим операцию И, которая указывает на то, что оба значения должны быть истинными, чтобы всё выражение было истинно, т. е. в данном выражении значение X должно быть > 2, чтобы выражение было истинным

(3 > 2) и (3 > 0) - true [истина]

(4 > 2) и (4 > 0) - true [истина]

и т. д.

Вернемся к тому, что между выражениями стоит операция ИЛИ, т. е. должны выполняться или левая, или правая часть. Приходим к итогу, что:

const

n=5;

type

t_spisok=record

surname:string[20];

name:string[20];

YearBorn:string[4];

ves:integer;

Rost:integer;

end;

mas=array  [1..n] of t_spisok;

var

spis1:mas;

f: file of t_spisok;

i:integer;

Объяснение:

program spisok1;

const

n=5;

type

t_spisok=record

surname:string[20];

name:string[20];

YearBorn:string[4];

ves:integer;

Rost:integer;

end;

mas=array  [1..n] of t_spisok;

var

spis1:mas;

f: file of t_spisok;

i:integer;

// То что ниже - это для проверки

begin

Assign(f,'klass9.dat');

Rewrite(f);

for i:=1 to n do begin

with spis1[i] do begin

Write('фамилия: ');

ReadLn(surname);

Write('имя: ');

ReadLn(name);

Write('год рождения: ');

ReadLn(yearborn);

Write('вес(кг): ');

ReadLn(ves);

Write('рост(см): ');

ReadLn(rost);

end;

   Write(f, spis1[i]);

 end;

 Close(f);

Assign(f,'klass9.dat');

Reset(f);

writeln ('фамилия':20,'имя':20, 'год рожд.':10,' вес ':4,' рост ':4);

i:=1;

while not Eof(f) do begin

Read(f, spis1[i]);

 with spis1[i] do begin

writeln (surname:20,name:20,YearBorn:10,ves:4,rost:4);

end;

i:=i+1;

end;

close(f);

readln;

end.