Они отличны друг от друга, но если установить именно связь, то:
Интранет — это Интернет в миниатюре, который построен на использовании протокола IP для обмена и совместного использования некоторой части информации внутри этой организации.
Var i:integer;
begin
i := 30;
while (i >= 1) do
begin
if (i mod 2 = 1) then
writeln(i);
i := i - 1;
end;
<span>end.
----------------
2)
var i, a: integer;
begin
for i:=0 to 30 do
if (i mod 2 = 1) then
a := a + i;
writeln(a);
end.
<span>------------
Удачи:)</span></span>
F=(x∈P )*(x∈A)⇒ (x∈Q)*(x∈A)
F=¬((x∈P)* (x∈A) )+(x∈Q)*(x∈A)
F=¬(x∈P) +¬(x∈A)+(x∈Q)*(x∈A) (¬(x∈P)=x∉P)
F =x∉P + x∉A +x∈Q * x∈A
(Формулы: А⇒В=¬А+В; ¬(А*В)=¬А+¬В; ¬A +A*B =¬A+В)
F =х∉Р +х∉А +x∈Q
var
a:array [1..20] of integer;
i,c,k:integer;
sr:real;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(80)-44;
write (a[i],' ');
end;
writeln;
write ('C = ');readln(c);
for i:=1 to 20 do
if a[i]>c then begin
sr:=sr+a[i];
k:=k+1;
end;
sr:=sr/k;
writeln (sr:0:2);
readln;
end.