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.
Var i,x,k,s:integer;
function Sum(x:integer):integer;
var
t:string;
i:integer;
begin
s:=0;
t:=IntToStr(x);
for i:=1 to length(t) do s:=s+StrToInt(t[i]);
result:=s
end;
function Kol(x:integer):integer;
var t:string;
begin
t:=IntToStr(x);
result:=length(t)
end;
begin
for i:=1 to 5 do
begin
write('Введите число ',i,': ');
readln(x);
k:=Kol(x);
s:=Sum(x);
writeln('Количество цифр ',k,'; сумма цифр ',s)
end
<span>end.</span>
2^i = 16
i = 4
Сообщение содержит 4 бита информации
Поворот в лево
идти 1 шаг
повернуть в право
идти 1 шаг
повернуть в право
идти 3 шага
повернуть в право
идти 3 шага
повернуть в право
идти 1 шаг