Вводится 6 чисел определить сколько из них положительных и отрицательных

===== PascalABC.NET =====

begin

 var (sn, sp) := (0, 0);

 foreach var n in ReadSeqInteger(6) do

   if n > 0 then

     sp += 1

   else if n < 0 then

     sn += 1;

 Writeln('Отрицательных ', sn, ', положительных ', sp)

end.

Пояснения

N - количество символов в алфавите (включая пробелы и другие символы)

k - колличество букв в сообщении (в данном случае строки умножаем на кол-во букв в строке)

i - колличество бит, выделенных под кодированние одного символа

V - объем сообщения

формула - запомнить на будущее для более простых вычислений

N=16

k=12*20=240

v=?

Решение

1)N=2 в степени i (формула), значит 16=2 в степени 4, значит i=4 бит

2)V=k*i(формула), значит при k=240 , i=4, V=240*4=960 бит = 120 байт

ответ: 960бит, или 120байт

 

Пояснения

N - количество символов в алфавите (включая пробелы и другие символы)

k - колличество букв в сообщении (в данном случае строки умножаем на кол-во букв в строке)

i - колличество бит, выделенных под кодированние одного символа

V - объем сообщения

формула - запомнить на будущее для более простых вычислений

N=16

k=12*20=240

v=?

Решение

1)N=2 в степени i (формула), значит 16=2 в степени 4, значит i=4 бит

2)V=k*i(формула), значит при k=240 , i=4, V=240*4=960 бит = 120 байт

ответ: 960бит, или 120байт