Var a:real; k,m,p:string;
Begin writeln('Введите число'); readln(a);
if a<0 then k:='отрицательное' else k:=' положительное';
if a=int(a) then m:=' целое' else m:='не целое';
if a/2=int(a/2) then p:=' чётное' else p:=' нечётное ';
writeln('число ',a,' - ',k,' ; ',m,' ; ',p);
end.
var
a: integer;
begin
writeln('Введите целое число');
readln(a);
if a mod 2 = 1 then writeln('Число нечетное')
else writeln('Число четное');
end.
1)128×64×8=65536 бита
2)65536÷8=8192 байт
3)8192÷1024=8 килобайт
Ответ: В) 8 Килобайт
Минимальным основанием такого числа будет система, имеющая максимальную цифру этого числа, то есть цифру F. Такой системой является 16ричная