Var n:integer;
procedure del(x:integer);
var d:integer;
begin
d:=2;
if(x>1)then begin
while x mod d<>0 do d:=d+1;
if(x div d >1)then write(d,'*')
else write(d);
del(x div d)
end
else exit;
end;
begin
read(n);
write(n, ' = ');
if(n<2) then write(n)
else del(n);
end.
Для хранения одного из 32 символов требуется log(2)32 = 5 бит (2^5 = 32).
Объем переданного сообщения = 20*5*60 = 6000 байт = 6000*8 бит.
Количество переданных символов = 6000*8 / 5 = 9600
1. Свойство по высоте, направление убывание.
2. Свойство по количеству лепестков, направление убывание.
Дано: 3 бита на 1 шарик
Найти: количество шариков
Решение: 2^3=8
(^ значок степени)
Ответ: 8 шариков в мешочке.
Var i, sum:integer;
proz:longint;
begin
for i:=10 to 26 do
begin
if i mod 2 = 0 then sum:=sum+i else if i mod 2 <>0 then proz:=proz*i;
end;
writeln('summa=',sum);
writeln('proizvedenie=',proz);
end.