var i,count: integer;
proizv:longint;
begin
proizv:=1;
count:=0;
for i:=20 to 40 do
begin
if (i mod 2<>0) then
proizv:=proizv*i;
end;
for i:=20 to 100 do
if (i mod 45=0)then 3{Делятся на 4,5 и на 10=>делятся на 45}
count:=count+1;
writeln('Произведение равно: ',proizv);
writeln('Число кратных чисел: ',count);
end.
<u>// PascalABC.NET 3.2, сборка 1467 от 02.06.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
ReadlnString('Вводите:').ToWords.Where(w->(w.Length).IsOdd)
.Where(w->w.Right(2)='ая').Println
end.
Объем сообщения при использовании 16-битной кодировки:
10*16 бит = 160 бит = 20 байт
при 8-битной кодировке: 10*8 = 80 бит = 10 байт
Ответ: Объем сообщения уменьшился в 2 раза (с 20 байт до 10 байт)
128 это 2 в седьмой степени, значит на каждый символ приходится по 7бит.
Если каждую операцию записывать в таблицу (ничего в уме не считать), то:
1) 2+4 = 6
2) 3+4 = 7
3) 3+2 = 5
Если вычисления делать в уме, то:
1) 2+1 = 3
2) 3+1 = 4
3) 3+1 = 4