<span>Во всех</span> областях деятельности холодильных предприятий<span> как в обработке и хранении, так и в производстве продукции основной задачей является своевременное и равномерное выполнение и перевыполнение государственных плановых заданий по всем показателям. При этом одним из главных показателей работы холодильников служит сохранение высокого качества продукции. [</span><span>6</span><span>]</span>
Var a:array[-50..50] of longint;i:longint;
Begin
for i:=-50 to 50 do
if (i>7) then write(i,' ');
writeln;
End.
При переводе из десятично системы счисления мы делим на цифру системы счисления в которую переводим.
При переводе из двоичной в 16-ую мы отделяем по четыре числа начиная справа,далее мы смотрим по готовой таблице какие числа. В 8-ую тоже самое только отделяем по 3 цифры.
Вот если что таблица по которой мы переводим:
0-0000
1-0001
2-0010
3-0011
4-0100
5-0101
6-0110
7-0111
8-1000
9-1001
10-1010 A
11-1011 B
12-1100 C
13-1101 D
14-1110 E
15-1111 F
Ну и при переводе из 16-ой в 2-ую мы так же смотрим на таблицу.
При переводе в 10-ую СС мы в верхнем регистре выставляем разряды и слева на права умножаем цифру на систему счисоения водведенную в степень выставленого регистра.
Program n1;
var a: array[1..10] of integer;
i,k: integer;
begin
randomize;
writeln('исходный массив: ');
k:=0;
for i:=1 to 10 do
begin
a[i]:=random(15);
write(a[i],' ');
if a[i] mod 2<>0 then k:=k+1;
end;
writeln;
writeln('количество нечетных: ',k);
end.
1)<span>110101001
</span>2)100000000
3)1101010100
4)10011011011
5)101000001001
6)1000111011000
7)11000100011000
8)101000011
9)<span>10110000</span>
