A)кузнец,столяр,швея,шахтёр.b)таксист,слесарь,ткачиха
вот если это перевести в пример получится ¬a∨¬b=f
Var a:array[1..10] of real;
<span>i:integer; </span>
<span>begin </span>
<span>for i:=1 to 10 do begin </span>
<span>a[i]:=(2*i-1)/sin(i) </span>
<span>end; </span>
<span>a.Println </span>
<span>end.</span>
Var
a:array[1..1000]of integer;
i,n,k,c,q:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
if (a[i] mod 10 = 4) then
begin
k:=a[i];
c:=0;
while k>0 do
begin
c:=c + k mod 10;
k:= k div 10;
end;
if c mod 3 = 0 then
q:=q+1;
end;
end;
writeln(q);
end.