Определите наименьшее целое положительные значения k и x при котором x^k/k будет меньше некоторого A. При чём x изменяется от 0 до 5 с шагом 0,5.

1) ¬(¬A ^ B) ^ ¬C =( ¬(¬A)∨¬B)∧¬C = (A∨¬B)∧¬C
выражение эквивалентно выражению под цифрой 4)

2) Для того чтобы выражение было истинным надо чтобы истинными были каждое из выражений
(Y < 5) и    ((Y > 1) -> (Y > 5)) 
первое выражение истинно для всех указанных Y.
рассмотрим второе выражение: ((Y > 1) -> (Y > 5)) 
это выражение ложно только если (Y > 1) истинно,  а  (Y > 5) ложно
выражение (Y > 5)  ложно для всех Y, 
а выражение (Y > 1) истинно для Y = 2 , 3 , 4
Таким образом выражение  ((Y > 1) -> (Y > 5)) истинно только для Y= 1
поэтому правильный ответ под номером  1)

1)var a,b,i:integer;
begin
readln(a,b);
for i:= 1 to 100 do
 if (i mod a<>0) and (i mod b<>0) then write(i,' ')
 end.
2)var a,b,i,k:integer;
begin
readln(a,b);
k:=0;
for i:= a to b do
 if (i mod 7=0) xor (i mod 9=0) then k:=k+1; 
write(k) 
end.

3)var pol,i,otr,a:integer;
begin
otr:=0;
pol:=0;
for i:= 1 to 10 do 
begin 
readln(a);
 if a>0 then pol:=pol+1;
 if a<0 then otr:=otr+1 
end; 
if pol>otr then write('Положительных больше'); 
if otr>pol then write('Отрицательных больше')
end.
4) var i,a,b:integer;
begin
readln(a,b);
for i:= a to b do
 if (i mod 3 =0) or (i mod 7=0) then write(i,' ',i,' ') else write(i,' ')
end.