Program1; Uses crt;
var a: integer;
begin clrscr;
Writeln('введите число");
Readln(a);
if a>0 then Writeln('a-положительное');
if a<0 then Writeln('a-отрицательное');
if a=0 then Writeln('a=0');
Readln;
End.
Только я вот не понял, зачем фотка прикреплена к вопросу?..
А) 5=z(3)
б) Z(a)=(b)
в) Z(5)=(8)
найдем количество информации в одном символе. Оно равно 7 бит
Вот, они все не меньше 50 и чётные
74, 86, 122