Ответы
Ответ дал:
2
k:=0;
for j:=1 to N-1 do
begin
if( (a[j] * a[j+1]) mod 2 <>0) and ((a[j]+a[j+1]) mod 5 <> 0))
k:=k+1;
end;
writeln(k);
for j:=1 to N-1 do
begin
if( (a[j] * a[j+1]) mod 2 <>0) and ((a[j]+a[j+1]) mod 5 <> 0))
k:=k+1;
end;
writeln(k);
Вас заинтересует
5 месяцев назад
5 месяцев назад
2 года назад