Var
m,n,d:integer;
begin
Read(m,n);
d:=m mod 10 - n mod 10;
if d<0 then Writeln('У 1-го числа разряд единиц меньше')
else
if d>0 then Writeln('У 2-го числа разряд единиц меньше')
else Writeln('У обоих чисел разряды единиуц равны')
end.
1)-622
2)-26Е
3)-11001101
4)-110100100
5)-212.8125
<span>Один символ при алфавитном подходе будет нести 5 бит информации (2 в Х степени = 32) . Общий объём информации 39x5 = 195 бит</span>
Для хранения информации наверное
На паскале :
program task;
var s:byte;
begin
read(s);
case s of
1: writeln('1-2 уровень');
2: writeln('3-4 уровень');
3: writeln('5-6 уровень');
4: writeln('7-8 уровень');
5: writeln('9-10 уровень');
end;
end.