¬(¬(¬A V ¬B) & (A V B)) ⇒
¬((A & B) & (A V B)) ⇒
¬((A & B & A) V (A & B & B)) ⇒
¬((A & B) V (A & B)) ⇒
¬(A & B) ⇒
¬A V ¬B
Var
A: array [1..20] of integer;
B, C: array [1..10] of integer;
i, tmp: byte;
begin
for i := 1 to 20 do
begin
A[i] := random(30)+1;
write(A[i]:4);
tmp := tmp + 1;
if i mod 2 <> 0 then C[tmp] := A[i]
else
begin
B[tmp - 1] := A[i];
tmp := tmp - 1;
end;
end;
writeln;
for i := 1 to 10 do write(B[i]:4);
writeln;
for i := 1 to 10 do write(C[i]:4);
end.
500 Кбайт=512000 байт
16 бит=2 байта
512000/2=256000 символов всего
256000/200=1280 символов на странице
Ответ: 1280
Var x,p,rez:real;
<span> n: integer;
</span><span>begin
</span><span> p:=1;
</span><span> write('числа через пробел (завершение ввода - 0): '); read(x);
</span><span> while x<>0 do
</span><span> begin
</span><span> p:=p*abs(x);
</span><span> read(x);
</span><span> end;
</span><span> write('N = '); readln(n);
</span><span> rez:=exp((1/n)*ln(p));
</span><span> writeln('корень ',N,' -ой степени из ',p,' = ',rez);
</span><span>end.
</span><span>
</span>
<span><span>Насколько я понял это "кодированное" задание, требуется построить таблицы истинности для двух следующих логических выражений:
Таблицы даны во вложении.</span> </span>