Var n, sum, p: integer;
begin
sum := 0;
p := 1;
repeat
write('Введите число для завершения программы введите 0000): ');
readln(n);
if n <> 0 then begin
if n >= 0 then sum := sum + n;
if n < 0 then p := p * n;
end
else writeln('ИТОГ');
writeln( 'Сумма положительных: ', sum, ' | Произведение отрицательных: ', p);
writeln();
until n = 0000;
<span>end.
Вроде так</span>
24 * 2 = 48 байта - В Unicode каждый символ кодируется 2 Байтами
Зная, что в 1 байте содержится 8 бит делаем следующее:
48 байта * 8 = 384 бит
<span>Ответ: 384 бит</span>
да, второе понятие конкретизированно, и вродебы на моей памяти так не говорят. говорят СУБД
прямая
черточка такая, почему так называется - не понятно, а вопрос очень баянистый