Делим с остатком на 2 до тех пор, пока не получим единицу:
87 / 2 = 43 и остаток 1
43 / 2 = 21 и остаток 1
21 / 2 = 10 и остаток 1
10 / 2 = 5 и остаток 0
5 / 2 = 2 и остаток 1
2 / 2 = 1 и остаток 0
Далее, составляем двоичное число- сначала последнюю единицу (результат деления 2/2), а за ней- все остатки (в обратном порядке).
Мы получим такой результат:
Var n:integer;
begin
readln(n);
if n > 0 then n:=n-8
else if n < 0 then n:=n+6
else n:=10;
writeln(n);
end.
Пример:
-5
1
Устройство: 1 Клавиатура. 2 процессор. 3 Память. 4 монитор. 5 мышь.
Функция: 1 ввод информации. 2 обработка данных. 3 хранение информации. 4 отображение данных. 5 устройство ввода информации.
Var c,x,y: real;
begin
readln (x);
readln (y);
if x>y then
c=x*y
else
c=x+y;
print c
end.
Ответ:
Видео: ASF, MP4, M4V, MOV, avi, SWF, 3gp, WMV, MPG или MPEG. Звук: mp3, ogg, AIFF, AU, MID или MIDI, M4A, MP4 (аудиофайл MP4), WAV, WMA. Текстовые : txt
Объяснение: