(P*R)+(P*не R)+(Q*R)+(не P*Q*R)=R+(Q*R)+(не P*Q*R)=R+(не P*Q*R)=R+(не P*Q)
если неправильно, разрешаю прибить меня:D
Прости, что отвечаю через 2 часа, был не дома)
var
i, j, n : integer;
flag : boolean;
begin
write('n = ');
read(n);
for i := 2 to n do begin
flag := true;
for j := 2 to i-1 do
if (i mod j = 0) then begin
flag:=false;
break;
end;
if flag = true then write(i, ' ');
end;
var a,i,n,k : integer;
begin k := 0;
write ('n = ');
readln (n);
for i := 1 to n do
begin read (a);
if a =0 then
k := k +1; end;
writeln (k,' - кол-во нулей');
<span> end.</span>
Ответ в задании из информатики (А)