If (a>=10) and (a<=99) then begin
writeln(a,' двузначное число'); writeln(' его квадрат=',sqr(a)); end
else writeln(а, ' не является двузначным');
Все, что добавил или изменил-отметил жирным
Uses crt;
var a:integer;
begin
readln(a);
if (a mod 10)>(a div 100) then writeln('3>1');
if (a mod 10)<(a div 100) then writeln('1>3');
end.
Вообщем.. Восьмеричную - 2354 ; Двоичную - 10011101100 ; В шестнадцатиричную - 4ес.
8 бит=1 байт.
16 кбайт=2^14 байт
1 страница содержит 2400 байт
2^14/2400=6.__
у нас должно быть целое кол-во страниц => 6 штук
6721
Шестнадцатеричная система - 1a41.
Двоичная система - 1101001000001.