Question

Дан целочисленный массив из 30 элементов. Элементы могут принимать значения от 0 до 1000­. Допишите на алгоритмическом языке программу, которая находит и выводит количество элементов массива, которые заканчиваются на 7 и не делятся на 3. Запрещается использовать переменные, не описанные в приведенном фрагменте программы, но разрешается не использовать часть из них.

нач

целтаб a[1:30]

цел i, j, k

нц для i от 1 до 30

ввод a[i]

кц

...

кон

Answer 1

Ответ: (напишу на Паскале, сами транслируйте)

k := 0;

for i := 1 to 30 do

 if (a[i] mod 3) <> 0 then begin

   j := 10;

   while a[i] div j > 0 do

     j := j * 10;

   if a[i] mod j = 7 then

     k := k + 1;

 end;

writeln(k);