Напишите программу, которая в последовательности натуральных чисел определяет количествочисел, кратных 3. Программа получает на вход количество чисел в последовательности, а затем самичисла. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 100.Введённые числа не превышают 300. Программа должна вывести одно число — количество чисел, кратных

var

 size, num, counter, i: integer;

 

begin

 counter := 0;

 read(size);

 for i := 1 to size do

 begin

   read(num);

   if num mod 3 = 0 then

     counter := counter + 1

 end;

 write(counter);

end.

Перебор всех таких слов по порядку- это по сути счёт по порядку в системе счисления с основанием 4, только вместо цифр 0, 1, 2, 3  использованы буквы А, Е, К, Р.
То есть, буква А соответствует нулю, а первое слово в списке соответствует числу 0000 (используется запись с фиксированным выводом четырёх цифр, включая незначащие нули).

Первым числом, в котором не будет нулей, станет число 1111 (ведь сразу вслед за нулём при последовательном счёте в числе появится цифра один). Этому числу соответствует слово ЕЕЕЕ.

Переведём это число из четверичной системы счисления в десятичную:


Дальше нужно учесть, что в списке под номером 1 стоит число, равное нулю. Значит, к числам, обозначающим слова в списке надо прибавить единицу, тогда они будут равны порядковым номерам списка.

Получается, первое слово, в котором нет буквы А (слово ЕЕЕЕ), идёт в списке под номером 85 + 1 = 86

ответ: номер 86.

//PascalABC.NET

var
  A: array [1..15] of integer;
  i, sum, n: integer;
begin
  for i := 1 to 15 do
  begin
    A[i] := random(1001)-500;
    write(A[i], ' ');
  end;
  writeln;
 
  for i := 2 to 14 do
    if ((A[i] > A[i - 1]) and (A[i] > A[i + 1])) then
    begin
   
   sum := 0;
  n := A[i]; 
  while ( n<>0 ) do
  begin
    sum := sum + (n mod 10);
    n := n div 10;
    if n in [-9 .. -1] then
    begin
      if sum - abs(n) < 0 then
        sum := abs(sum) - abs(n)
      else
        sum := sum - abs(n);
      break;
    end;
  end;   
   writeln('Сумма цифр числа ', A[i], ' = ', sum);
  end;
end.