В программе считается количество положительных (a[i]>0) четных (<span>a[i]/2=trunc(a[i]/2)) элементов массива.
В массиве </span>A= (-2,3,4,-4,6,5,0) положительные четные элементы: 4 и 6.
m=2
Function HOD(a: integer; b: integer): integer;
// Нахождение НОД
var
i: integer;
begin
while b <> 0 do
begin
a := a mod b;
i := b; b := a; a := i
end;
HOD := a
end;
var
A, B, C: integer;
begin
Write('Введите через пробел значения A,B,C: '); Readln(A, B, C);
Writeln('НОД(A,B,C)=', HOD(HOD(A, B), C))
end.
<u>Тестовое решение:</u>
Введите через пробел значения A,B,C: 1532 628 388
НОД(A,B,C)=4
Впиши в поисковик из одной системы счисления в другую и даст хороший удобный инструмент.
а) 4F (16) + 111110 (2) = 79 (10) + 62 (10) = 141 (10)
б) 5A (16) + 1010111 (2) = 90 (10) + 87 (10) = 177 (10)