var
m, k, d1: <em>single</em>;
i, t, d: <em>byte</em>;
begin
readln(t);
writeln();
for i := 1 to t do
begin
readln(k);
if (k > 0) then
begin
d1 += k;
d += 1;
end;
end;
writeln(d1 / d);
<span>end.</span>
P = [12; 22]; Q = [33; 43]
Импликация ->, которая стоит в скобках, работает так.
Если точка x ∈ P, то должно быть x ∈ Q. Но это не так.
Нет ни одной точки из промежутка Р, который ∈ Q.
Если же точка x ∉ P, то она может ∈ Q, а может ∉ Q.
Поэтому импликация ложна для точек из промежутка Р.
И истинна для всех остальных точек числовой прямой.
Конъюнкция /\, которая стоит за скобками, работает так.
Если оба утверждения истинны, то конъюнкция истинна.
Если хоть одно ложно, то конъюнкция ложна.
Если множество А совпадает с множеством Р = [12, 22],
то для любого х выражение будет ложно.
Потому что для x ∈ A = P = [12; 22] ложна импликация.
А для x ∉ A = P ложно второе утверждение.
В обоих случаях конъюнкция ложна.
Ответ: A = P = [12, 22]; |A| = 10
var
a, b: <em>integer</em>;
begin
assign(input, 'input.txt');
assign(output, 'input.txt');
reset(input);
rewrite(output);
readln(input, a, b);
if (a mod 2 = 1) then
writeln(output, b mod 2)
else
writeln(output, '0');
close(input);
close(output);
end.
Если задание - расположить в порядке возрастания запросы, то ответ таков:
3412
Удаление
копирование
перемещение
вставка