Question

информатика..........

Answer 1

var

 n, cnt, val, sum: integer;

begin

 readln(n); // кол-во чисел в последовательности

 repeat

 readln(val); // Вводим любое число

 if (val mod 6 = 0) and (val mod 10 = 4) // если число mod 6 = 0 значит оно кратно 6

   then sum := sum + val;                                                 

 cnt := cnt + 1;

 until(cnt >= n);

 writeln(sum);

end.

// 2 задача

var

  val, sum: integer;

begin  

 repeat

 readln(val);

 if (val mod 5 = 0) and (val mod 10 = 5)  

   then sum := sum + val;                                      

 until(val = 0);

 writeln(sum);

end.