// PascalABC.NET 3.3
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.
Пример:
<span>3
21 8
40 2
25 4
NO</span>
Var a:array[1..10] of integer;
i,b,ind,el,min:integer;
begin
min:=1000000;
for i:=1 to 10 do
read(a[i]);
readln;
read(b);
for i:=1 to 10 do begin
if abs(a[i]-b)<min then begin
min:=abs(a[i]-b);
el:=a[i];
ind:=i;
end;
end;
write(el,' ',ind); //Выводит элемент, а затем его индекс.
end.<span>
</span>
http://pro-spo.ru/workopenoffice/3900-openoffice-calc-dlya-nachinayushhix-elektronnaya-tablicza-kak-baza-dannyx-pechat-dokumenta СИЛКА НА САЙТ З ПОЯСНЕННЯМ!!!
Ответ:
7. г) 7
8. а) 42
9. АГВБ
Объяснение:
7. ((X <= 7) ИЛИ (X < 12)) И (X > 6)
а) 4
((4 <= 7) ИЛИ (4 < 12)) И (4 > 6) = ((1) ИЛИ (1)) И (0) = (1) И (0) = 0 (ложно)
б) 5
((5 <= 7) ИЛИ (5 < 12)) И (5 > 6) = ((1) ИЛИ (1)) И (0) = (1) И (0) = 0 (ложно)
в) 6
((6 <= 7) ИЛИ (6 < 12)) И (6 > 6) = ((1) ИЛИ (1)) И (0) = (1) И (0) = 0 (ложно)
г) 7
((7 <= 7) ИЛИ (7 < 12)) И (7 > 6) = ((1) ИЛИ (1)) И (1) = (1) И (1) = 0 (истинно)
8. ((число < 35) ИЛИ НЕ (число чётное)) И (число делится на 7)
а) 42
((42 < 35) ИЛИ НЕ (42 чётное)) И (42 делится на 7) = (0 ИЛИ НЕ (1)) И (1) = (0 ИЛИ 0) И (1) = (0) И (1) = 0 (ложно)
б) 14
((14 < 35) ИЛИ НЕ (14 чётное)) И (14 делится на 7) = (1 ИЛИ НЕ (1)) И (1) = (1 ИЛИ 0) И (1) = (1) И (1) = 1 (истинно)
в) 21
((21 < 35) ИЛИ НЕ (21 чётное)) И (21 делится на 7) = (1 ИЛИ НЕ (0)) И (1) = (1 ИЛИ 1) И (1) = (1) И (1) = 1 (истинно)
г) 49
((49 < 35) ИЛИ НЕ (49 чётное)) И (49 делится на 7) = (0 ИЛИ НЕ (0)) И (1) = (0 ИЛИ 1) И (1) = (1) И (1) = 1 (истинно)
9. Чем больше & (И) тем меньше результат по запросу, чем больше | (ИЛИ) тем больше результат по запросу
АГВБ