1.
program chislo;
var s,i:integer;
begin
for i:=3 to 100 do s:=s div 6;
if s mod 6=0 then begin
readln(s)
writeln('Ваш результат: ', s);
<span>end;
</span>end.
2.
program chetno;
var s,i:integer;
begin
for i:=-20 to 1200 do s:=s div 2;
if s mod 2 = 0 then begin
readln(s);
writeln('Ваш результат:', s);
end;
end
Третью не помню :(
Интернет!!!!!!!!!!!!!!!!!!!!!!!!!
<span>Если понравилось решение - нажимай "спасибо" и "лучший" (рядом с кнопкой "спасибо") :)</span>
<span>K=30*4^8=1440
</span>I=900 байт=7200 бит
<span>i =I/K=5 бит
</span>N=2^5=32 символа
<span>Ответ: 32</span>
44 в 10ичной = 54 в 8ричной
44 в 10ичной = 2С в 16ричной
44 в 10ичной = 10110 в 2ичной