По способу восприятия информация не может быть: тестовой, визуальной, символьной, графической
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.
Program n1;
<span>var a,b,c,s,p:real;
</span><span>begin
</span><span>readln(a);
</span><span>readln(b);
</span><span>readln(c);
</span><span>if (a+b>c) and (a+c>b) and (b+c>a) then
</span><span>begin
</span><span>p:=a+b+c;
</span><span>s:=sqrt(p*(p-a)*(p-b)*(p-c));
</span><span>writeln('периметр=',p);
</span><span>writeln('площадь=',s);
</span><span>end else
</span><span>writeln('треугольник не существует');
</span><span>end.</span>
Монитор необходимо установить на такой высоте, чтобы центр экрана был на 15-20 см ниже уровня глаз, угол наклона до 15 градусов.