//На Pascal
const N = 40;
var a: array [1..N] of longint;
i,k: longint;
begin
for i := 1 to N do
readln(a[i]);
k := 0;
for i := 1 to N - 1 do
if ((a[i] + a[i + 1]) mod 6 <> 0) and (a[i] * a[i + 1] <1000) then
k:=k+1;
writeln(k);
<span>end.</span>
Решение Коли приводит к неправильным ответам, когда сумма цифр больше 15.
Початок -> Запускаемо компьютер -> втримуємо ЛКМ (Ліва клавіша Миші) ->
переводимо бажану програму/завдання в папку -> Повідомити результат ->
Кінець