решение:
<span>var x,n:integer; </span>
<span>begin </span>
<span>n:=0; </span>
<span>for x:=11 to 99 do </span>
<span>if odd(x) then inc(n); </span>
<span>writeln(n); </span>
<span>readln; </span>
<span>end. </span>
<span>раскинув мозгами </span>
<span>begin writeln((99-10+1) div 2); readln; end. </span>
<span>а так как число двузначных нечетных всегда постоянно, то самое правильное решение </span>
<span>begin writeln(45); readln; end.</span>
Program HelloWorld;var a1,b1,c1,a2,b2,c2:integer; s:double;begin writeln('First'); a1:=5; b1:=6; c1:=1; writeln(a1,'-',b1,'-',c1); writeln('Second'); a2:=3; b2:=2; c2:=8; writeln(a2,'-',b2,'-',c2); if(b1>a1)and(b1>c1) then a1:=b1 else if (c1>a1) then a1:=c1; if(b2>a2)and(b2>c2) then a2:=b2 else if (c2>a2) then a2:=c2; s:=(a1+a2)/2; writeln(s:0:2);end.
На питоне 3й версии достаточно ввести
print (3 ** 100<span>)
</span>Ответ:
<span>515377520732011331036461129765621272702107522001
Для 2й версии Питона:
</span>print 3 ** <span>100
</span>
16МБ=128000000бит
4мин=240сек
128000000:240примерно 533333бит/с