1. Реализовать class Seyf. В классе «Сейф» есть поля: ✓ размер сейфа (это целое число, определяющее сколько предметов можно положить в сейф); ✓ содержимое сейфа (массив, количество элементов массива < = поля размера сейфа); ✓ поле - пароля от сейфа (четырёхзначное число. н-р, 1234), пароль скрыт (инкапсуляция). Чтобы положить какой-то предмет в сейф или взять какой-то предмет из сейфа, надо ввести пароль. Пароль задаётся изначально при создании объекта, больше его никак нельзя увидеть, не изменить. Когда мы помещаем какой-то предмет внутрь сейфа (н-р, блокнот), мы должны передать пароль. Сейф сравнивает введённый пароль с паролем, установленным внутри сейфа и, если они совпадают, то предмет помещается в сейф (запоминается в массив), если пароли не совпадают - выводится ошибка. Для того, чтобы взять предмет из сейфа, нужно указать предмет (н-р, блокнот) и пароль. Сейф сравнивает введённый пароль с паролем, установленным внутри сейфа и, если они совпадают, то предмет извлекается из сейфа (удаляется из массива). В массиве «предмета» нет - он возвращается в виде переменной.
По закону дистрибутивности раскроем скобки
(Av¬A)&(AvB)
Av¬A = 1, значит остаётся AvB
2) F =A&(¬AvB)
По тому же закону раскрываем скобки
(A&¬A)v(A&B)
A&¬A = 0, значит остаётся A&B
3. (AvB)&(¬BvA)&(¬CvB)
По закону склеивания (AvB)&(¬BvA) = A , получается, что выражение принимает вид
A&(¬CvB)
Можно раскрыть скобки, получим
A&¬C v A&B
4) F =(1v(AvB))v((AC)&1)
Скобка (1v(AvB)) = 1, так как 1 v ЧТОУГОДНО = 1
Получаем выражение
1v((AC)&1) = 1, так как 1 v ЧТОУГОДНО = 1
ответ 1
var
t:boolean;
d:integer;
begin
t := true;
d := 2;
while t and (d*d <= x) do
begin
if x mod d = 0 then
t := false;
d := d + 1
end;
prime := t
end;
function order(x:integer):boolean;
var
t:boolean;
d:integer;
begin
d := -1;
repeat
t := x mod 10 > d;
d := x mod 10;
x := x div 10
until not t or (x = 0);
order := t
end;
var
t:boolean;
i,k,n:integer;
begin
t := false;
read(k,n);
for i := k to n do
if prime(i) then
if order(i) then
begin
write(i,' ');
t := true
end;
if not t then
write(0)
end.