Максимальное кол-во — 4 байта = 32 бита
Ответ: 32
А) 84953<span> = 10</span>100101111011001, 834<span> = 1</span>101000010, 55<span> = </span>110<span>111
б) </span>1462<span> = 1</span>100110010, 71<span> = </span>111001, 634<span> = </span>110011<span>100
в) </span>E93F76<span> = </span>111010010011111101110<span>110,
</span>59D45<span> = 1</span>011001110101000101
94553<span> = 10</span>010100010101010<span>011</span>
Паскалевский вариант от меня.
Program Programma;
Uses crt;
var n, p: integer;
BEGIN clrscr;
write('n = ');
readln(n);
writeln;
if (n > 0) and (n <=100) then
begin
p:=sqr(n);
write('Ответ: p = ', p);
end
else
write('Число ненатуральное или превосходит 1000');
readln;
END.
На паскале :
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.