Браузеры Программы, с помощью которых просматриваются гипертексты в системе Всемирной паутины, называют
Pascal:
var a,n,count,max,i:integer;
begin
count :=0;
max:= -1;
readln(n);
for i:=1 to n do
begin
readln(a);
if (a>max) then
begin
max:=a;
count:=1;
end
else
begin
if (a = max) then
count:=count+1;
end
end;
writeln(count);
end.
Думаю это ответ б. Потому что все остальные передают информацию.
По середине "источник информации" > "информационный канал" > "приемник информации"
Program Uskorenie;
uses Crt;
const g = 9.81;
var g1, g2, g3 : real;
begin
ClrScr;
Write (' Введите g1 ='); ReadLn(g1);
Write(' Введите g2 ='); ReadLn(g2);
Write (' Введите g3 ='); ReadLn(g3);
WriteLn;
if (g1=g) or (g2=g) or (g3=g) then WriteLn(' Есть!')
else WriteLn(' Отсутствует...');
ReadLn;
end.