Заменяем каждый разряд на код из таблицы.
Двоичная СС Восьмеричная СС
000 0
001 1
010 2
011 3
100 4
101 5
110 6
111 7
Получаем числа:
1024757520 (7) = 001000010100111101111101010000 (2)
1232400565 (7) = 001010011010100000000101110101 (2)
Складываем (0 в начале числа можно убрать):
1000010100111101111101010000 + 1010011010100000000101110101 = 10010101111011110000011000101
Меняем 1 на 0, 0 на 1:
10010101111011110000011000101 = 01101010000100001111100111010
Двоичная СС Шестнадцатеричная СС
0000 0
0001 1
0010 2
0011 3
0100 4
0101 5
0110 6
0111 7
1000 8
1001 9
1010 A
1011 B
1100 C
1101 D
1110 E
1111 F
Получаем число:
1101 0100 0010 0001 1111 0011 1010 (2) = D421F3A (16)
var
a: array [1..16] of integer; //Массив из 16 целых чисел
i: integer;
b: boolean; {Логическая переменная (найдено ли хотя бы одно число, кратное трем)}
begin
b:= false; //Ни одного числа, кратного трем еще не найдено
write('Исходный массив: ');
for i:= 1 to 16 do {Заполняем исходный массив случайными числами от - 20 до 20 и распечатываем его}
begin
a[i]:= random(40) - 20;
write(a[i], ' ');
end;
writeln;
for i:= 1 to 16 do //Определяем, есть ли в массиве хотя бы одно число, кратно трём, и если есть, то выходим из цикла
if (a[i] mod 3 = 0) and (a[i] <> 0) then
begin
writeln('В массиве есть хотя бы одно число, кратное трём');
b:= true;
break;
end;
if b = false then writeln('В массиве нет ни одного числа, кратного трём');
end.
Если все правильно, отметь решение как лучшее)