Представьте число 57 в беззнаковом 8-ми разрядном формате

program xxx;

var s : string;

        а : integer;

begin

    writeln ('введите слово-');

    readln (s);

    а: = length(s)

    writeln ('длина слова=', a);

    readln

end.

иероглифы обозначали целые слова и слоги, их было более 750

в одном байте восемь бит. следовательно 100/8=12.5   ответ 12.5

var alpha: real;

begin

  read(alpha);

  if alpha > 90 then write("tupougolnyj");

  if alpha = 90 then write("prjamougolnyj");

  if alpha < 90 then write("ostrougolnyj");

end.