16 бит, выразить в компьютерном представлении, заодно выснить макс. мин. числа вмещающиеся в 16 бит и не только в 16 бит, а ещё модифицированные 16 бит из задачи ппц, я учител твой шатал.
со знаком: 8 бит (маленькое число) min = -128; max = 127 числа. 16 бит (большое число) min = -32768; max = 32767 числа.
без знака: 8 бит (маленькое число) min = 0; max = 255 числа. 16 бит (большое число) min = 0; max = 65535 числа. ----------------------------------------------------------------------------------------
Записать дополнительный код отрицательного числа в 16 бит. -2002 = 1111 1000 0010 1110 255 = 0000 0000 1111 1111 -255 = 1111 1111 0000 0001 32768 = 1111 1111 1111 1111 тут 1 бит обрезался, поэтому так. -32768 = 1000 0000 0000 0000
10 CLS 20 REM Определяет количество положительных и отрицательных элементов массива 30 INPUT "Введите количество элементов в массиве N="; N 40 DIM A(N) 50 REM Ввод элементов массива 60 FOR I = 1 TO N 70 PRINT "Номер"; I; 80 INPUT "Значение элемента массива ="; A(I) 90 NEXT I 110 REM Нахождение количества положительных и отрицательных элементов массива 120 K = 0: S = 0 130 FOR I = 1 TO N 140 IF A(I) > 0 THEN K = K + 1 150 IF A(I) < 0 THEN S = S + 1 160 NEXT I 170 REM Вывод результатов 180 PRINT "Количество положительных элементов ="; K 190 PRINT "Количество отрицательных элементов ="; S 200 END
В таком виде программа была выполнена в среде LB Booster - бесплатной версии со входным языком Liberty BASIC. Сама же Liberty BASIC является коммерческим продуктом, в связи с чем попробовать выполнить эту программу именно в этой среде не представляется возможным.
program pr;
var x,y: real;
begin
readln (x);
if x-3<>0 then
begin
y:=(x+5)/(x-3);
writeln(y);
end
else writeln('Решений нет')
end.