Var
a, b, c: real;
n: integer;
begin
Write('Введите через пробел три числа: ');
Readln(a, b, c);
if a > 0 then n := 1 else n := 0;
if b > 0 then n := n + 1;
if c > 0 then n := n + 1;
Writeln('Положительных чисел- ', n)
end.
Тестовое решение:
Введите через пробел три числа: -3.54 2.16 4
Положительных чисел- 2
2017 = <span>11111100001 2
2017 = 3741 8
2017 = </span><span>7E1 16</span>
Оценки 1-5 нумеруем от 0 до 4
Максимальное число 4 = 100 в 2 сс и занимает 3 бита
Любая отметка занимает 3 бита
Ответ: 3 бита
Также если предположить что возможная отметка всегда от 2 до 5 то руковотствуясь ттеми же выкладками ответ будет 2 бита