Bate
5 год назад
Пожалуйста посчитайте пж очень нужно
ОТВЕТЫ
Gleb
Oct 24, 2020
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);
378
Смежные вопросы:
