Как правельно сделать я незнаю
вот подсказка
Вот пожалуйста. Сделал на PascalABC.NET
program HelloWorld;var i, x, y, z: integer;begin
i:=1;while i<>0 do begin readln(i); x:=x+i; if i>0 then y:=y+1; if i<0 z:=z+1 end;writeln(x, ';', y-z); end.
<span>Разработать программу для подсчета количества отрицательных чисел среди целых чисел a, b, c. Программа должна иметь дружественный интерфейс. Протестировать программу для всех возможных случаев (когда количество отрицательных чисел равно 0, 1, 2 и 3).</span>
<span> ОТВЕТ:</span>
<span>var</span> a<span>,</span>b<span>,</span>c<span>,</span>k<span>:</span><span>integer</span>;
Английский,так как все значения идут на английском и их надо понимать
1. k=4096 символов
I=1/512 Мб=2кБ=16384бит
i=4бита
N=16. Мощность алфавита 16
2. k=256 символов
N=12
- минимально возможное число бит для кодирования символа - 4
i=4
I=k*i=256*4=1024 бита=128 байт