Дополните программу на паскаль
Вот программа:
program a1;
var a:array[1..1000]of integer;
i,n,s:integer;
begin
write('n: ');
readln(n);
s:=0;
for i:=1 to n do begin write('a[',i,']: ');
read(a[i]) end;
for i:=1 to n do s:=s+a[i];
writeln('s=',s);
readln;
readln
end.
Сделайте так, чтобы в a[',i,']: ' вводился случайный диапазон чисел от 150 до 200
а) 33 | 16 | 8 | 4 | 2 | 1 - в двоичной системе оно выглядит как 100001
1 | 0 | 0 | 0 | 0 | 1
Так как оно положительное, то в начале ставится 0. Так как чисел всего 6, а не 7, то после первого нуля следует поставить ещё один.
ответ: 0'0100001
б) -63₁₀ = -111111₂ (переводить уже не буду подробно)
Так как число отрицательное, то в начале ставим 1, так как цифр 6, то ставим после 1 0.
1'0111111
Инвертируем:
1'1000000
Прибавляем 1:
1'1000001
ответ: 1'1000001
в) -254₁₀ = -11111110
Так как цифр 8, то последнюю отбрасываем, а далее по алгоритму:
1'1111111 >> 1'0000000 >> 1'0000001
ответ: 1'0000001
2.' ' ' . . . . .
а) 11110 б) 10101010
+ 1101 - 11011
=101011 =10001111
в) 1101
* 101
1101
+1101
=1000001
Всё, как в обычной арифметике.