Var x,a,h:integer;
begin
read(x);
while a<=x-3 do
begin
a:=a*2;
h:=h+3;
end;
writeln(h);
end.
вроде бы как то так у меня баги паскаля на компе поэтому проверить не получилось. если что попробуй убрать "-3" в 4 строке. а так должно работать.
begin
var n := ReadInteger('Укажи число оленей:');
var s := 0;
Writeln('Вводи количество косточек, попавших в каждого оленя');
for var i := 1 to n do
s += ReadInteger;
Writeln('Количество саженцев = ', s)
end.
2 ГБ * 1024 = 2048 МБ
2048/3=628 шт.
В этих задачах используются 2 формулы K=S*I, N=2^i
K-объем инф-ии(бит), S- кол-во сим-в, i -вес 1 символа, N- мощность алф.
1.75*5=345 бит
2.1000/8=125 байт
3.9,5 Кбайт=9,5*1024*8=<span>
77824бит, </span><span><span>77824/2560=30,4 бит вес 1 символа, N=2^31 символов в алф.
</span></span>4.40*50*7*5= 70000бит=8750байт
5.3750байт=3750*8=30000 бит, 30000/(5*25*60)=4бита, <span>N=2^4=16 символов в алфавите</span>
2.1. При a=0, 11, 22, 33, 44, 55, 66, 77, 88, 99.
2.2 Если вводится одно- или двузначное число - да (кроме 0, при нуле в выводе будет 0) . Иначе - нет т.к. при вводе многих из трехзначных чисел и всех из чисел с более, чем трем знаками результат будет более, чем трехзначным (т.к. div найдет не первое число, а все, кроме последнего).
2.3 при вводе 125 ответ будет 62. Он получается таким образом: a1=125 mod 10 = 5; a2 = 125 div 10 = 12; b = a1*10+a2=50+12=62.
