Не совсем красиво но без массивов
var cur_num, prev_num: integer;
Begin
Writeln('Введите последовательность закончив ее нулем');
read(prev_num);
repeat
read(cur_num);
if cur_num * prev_num > 0 then
writeln('Пара = ', cur_num * prev_num);
prev_num := cur_num;
until cur_num = 0;
End.
Program Z_n;
var a:array[1..10] of byte;
i:byte;
Begin
writeln;
Randomize;
For i:=1 to 10 do begin
a[i]:=random(10);
write(a[i],' ');
if (a[i] mod 2)=0 then a[i]:=a[i]+1;
end;
writeln;
For i:=1 to 10 do
Write(a[i],' ');
end.
В по дате появления с самого раннего
Multics
Unix
Ms dos
Вот у тебя есть число 99
99 < 128, значит берем 64
Теперь составим 99 из степеней двойки:
64 = 2^6 = 1000000 (в двоичном виде это единица и 6 нулей)
32 = 2^5 = 0100000 (аналогично, единица и 5 нулей)
2 = 2^1 = 0000010
1 = 2^0 = 0000001 (любое число в 0 степени - 1)
Получаем 1100011