Предмет: Информатика,
автор: Palvanov
помогите пж очень нужно
Приложения:
Ответы
Автор ответа:
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);
Интересные вопросы
Предмет: Математика,
автор: forwardtoys7
Предмет: История,
автор: dzafnasta
Предмет: Литература,
автор: urchukanna48
Предмет: Математика,
автор: SuperStarNumber1
Предмет: Українська мова,
автор: donskayarenata