Program prog;
uses crt;
var a,b,v:integer;
begin
clrscr;
write('Возраст Антона = ');
readln(a);
write('Возраст Бориса = ');
readln(b);
write('Возраст Виктора = ');
readln(v);
writeln;
if (a>b)and(a>v) then writeln('Антон старше всех.');
if (b>a)and(b>v) then writeln('Борис старше всех.');
if (v>a)and(v>b) then writeln('Виктор старше всех.');
if (a=b)and(a>v) then writeln('Антон и Борис старше Виктора');
if (a=v)and(a>b) then writeln('Антон и Виктор старше Бориса');
if (b=v)and(b>a) then writeln('Борис и Виктор старше Антона');
if (a=b)and(a=v) then writeln('Антон,Борис и Виктор одного возраста');
end.
На питоне 3й версии достаточно ввести
print (3 ** 100<span>)
</span>Ответ:
<span>515377520732011331036461129765621272702107522001
Для 2й версии Питона:
</span>print 3 ** <span>100
</span>
Любой вопрос, на который можно ответить с определённостью "да" или "нет" несёт в себе 1 бит информации.
Примеры: "Железо - это металл или нет?","В корзине 2 шара - белый и чёрный. Вынимают наугад один шар. Вопрос, это белый шар?" и т.д. и т.п.
<span>1010101 индекс 2=1*2^6+0*2^5+1*2^4+..+0*2^1+1*2^0=85(10)
85(10)=125(8)
85(10)=55(16)
</span>