Ответ:
Восьмеричная: 76=114
Двоичная: 2618=101000111010
Объяснение:
Надеюсь помог вам.
Const n=10;
var a: array[1..n] of integer;
i,k: integer;
begin
writeln('Исходный массив:');
for i:=1 to n do begin
write('a[',i,']=');
readln(a[i]);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i]>0 then k:=k+1;
writeln('k = ',k);
end.
Пример:
<span>Исходный массив:
a[1]=168
a[2]=156
a[3]=155
a[4]=-176
a[5]=154
a[6]=-175
a[7]=-173
a[8]=174
a[9]=164
a[10]=-170
k = 6</span>
В данном случае используется не алфавитный подход к измерению информации (когда считаются символы), а содержательный - когда считаются события. Например, когда кидаем монетку у нас может получиться всего 2 события: орел или решка. Так как 2 - это 2 в степени 1, то это значит, что сообщение несет 1 бит информации. Так и здесь: после желтого у тебя возможно всего два события: красный или зеленый. Значит сообщение несет 1 бит информации.
1) var a,b,c,d:integer;
begin
write('Введите кол-во товара: ');
readln (a);
write ('Введите цену товара: ');
readln (b);
c:=a*b;
writeln ('Стоимость покупки составила ',c,' рублей');
write ('Сколько денег Вы даёте за покупку: ');
readln (d);
if d<c then writeln ('Вам ещё нужно доплатить ',c-d,' рублей');
if d=c then writeln ('Сдачи нет');
if d>c then writeln ('Сдача составила ',d-c,' рублей');
end.
2) var a,b,c:integer;
begin
write ('Введите длину стороны a: ');
readln (a);
write ('Введите длину стороны b: ');
readln (b);
write ('Введите длину стороны c: ');
readln (c);
writeln;
if (a<b+c) and (b<a+c) and (c<a+b) then writeln ('Такой треугольник существует.')
else writeln ('Такой треугольник не существует.');
end.
3) var i,n:integer;
b:array[1..1000] of real;
c:real;
begin
c:=0;
write ('Введите кол-во дней: ');
readln (n);
for i:=1 to n do
begin
if i=1 then b[i]:=10 else b[i]:=b[i-1]+((b[i-1]/100)*10);
end;
for i:=1 to n do
begin
c:=c+b[i];
end;
writeln ('Всего спортсмен пробежит ',c:0:2,' км за ',n,' дней');
end.
var i,s:integer;
begin
while i<>-5 do begin
readln(i);
if i mod 2=0 then s:=s+1;
end;
writeln(s);
end.