Если разделять информацию по способу её восприятия, то она будет называться по органам чувств человека:
<span>зрительную (воспринимается глазами)
</span>обонятельную (носом)<span>
слуховую (ушами)
</span>вкусовую (языком)<span>
тактильную (кожей)</span>
Program n5;
var p: real;
i,n: integer;
begin
p:=1;
readln(n);
for i:=1 to n do p:=p*(2*i)/(2*i+1);
writeln(p);
end.
Program n1;
var sum,k,a: integer;
begin
readln(a);
sum:=0;
k:=0;
while a<>0 do
begin
if (a>99) and (a<1000) then
begin
k:=k+1;
sum:=sum+a;
end;
readln(a);
end;
if k=0 then write('NO') else write(sum/k);
end.
Program n2;
var k,a: integer;
begin
readln(a);
k:=0;
while a<>0 do
begin
if (a>99) and (a<1000) and (a mod 4=0) then k:=k+1;
readln(a);
end;
write(k);
end.
187.5 Кбайт=187,5*1024*8=<span><span>1536000 бит
V=i*T*D, T=V/(i*D)
T=</span></span><span>1536000 /(16*48000)=2 сек</span>
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
if (ReadReal('введите возраст:')<18) then write('несовершеннолетний') else write('совершеннолетний');
end.
Const
N = 5;
Var
B:array[1..N] of integer;
i:integer;
S:real;
Begin
Randomize;
S:=0;
Write('B(',N,'):');
For i := 1 to N do
Begin
B[i]:=random(21)-10;
Write(' ',B[i]);
S:=S+B[i];
End;
WriteLn;
WriteLn('S = ',S);
End.