Var a,b:real;
begin
a:=5; b:=3;
writeln (a,'+',b,'=',a+b);
<span>end.</span>
Выбор одного ученика из 64 = 2⁶ учеников несет в себе 6 бит информации.
Информация объемом 72 бита означает, что были выбраны 72 / 6 = 12 учеников.
Var n,k,kolvo,c:real;beginreadln (k,n,c); kolvo:=k;while k+(c-n) >=0 do beginif k+(c-n)<kolvo then begin writeln ('за ' ,abs(k/(c-n)) , 'прыжков');break endelse beginwriteln ('собака кролика не догонит');breakend; end;end.
17 mod 3 =2
17 div 3 = 5
23 mod 10=3
23 div 10 =2
9 mod 2=1
9 div 2=4
33 mod 4=1
33 div 4= 8
29 mod 7 =1
29 div 7 =4
A div B - частное от деления A на B с остатком
A mod B - остаток от деления A на B с остатком!