Pascalabc.net если можно сделайте по простому. вы уже занимаете большое положение в обществе и пора бы вам искать собственного зама. вы решаете устроить конкурс среди n соискателей. ваш план - найти молодого человека с высшим образованием и вырастить его в классного специалиста. на данный момент требования следующие: возраст соискателя должен быть больше 22, но меньше 30 лет. количество лет, проведенных в вуз-е должно быть не менее пяти. программа должна определять, есть ли такой соискатель среди n желающих. формат входных данных вводится целое число n - количество соискателей (1 < = n < = 300) вводится n пар целых чисел: age и edu. где age - возраст соискателя (1 < = age < = 100), edu - количество лет, проведенных в вузе (0 < = edu < = 30). формат выходных данных выводится сообщение yes, если среди соискателей нашелся хотя бы один, подходящий и no - если не нашлось ни одного соискателя. примеры входные данные 3 21 8 40 2 25 4 выходные данные no
begin
var n:=ReadInteger;
var age, edu: integer;
var b:=false;
for var i:=1 to n do
begin
(age,edu):=ReadInteger2;
b:=b or (age in [23..29])and(edu>=5);
end;
if b then writeln('YES') else writeln('NO');
end.
Пример:
3
21 8
40 2
25 4
NO