3. Напишите программку, которая подсчитывает, сколько чисел из последовательности делятся на

3. Напишите программу, которая подсчитывает, сколько чисел из последовательности делятся на 3 и при этом кончаются на 4. На выход программка получает поначалу количество чисел в последовательности, а потом сами числа по одному. Количество чисел не превышает 1000. Введённые числа не превосходят 30000. Программка обязана вывести одно число: количество чисел, кратных 3 и заканчивающихся на 4.

Входные данные/Выходные данные
8/4
12/
14/
24/
54/
44/
33/
84/
114/

Задать свой вопрос
1 ответ
Var
 a:array[1..1000]of integer;
 i,n,k,c,q:integer;
   begin
    readln(n);
    for i:=1 to n do
     begin
     readln(a[i]);
      if (a[i] mod 10 = 4) then
      begin
       k:=a[i];
       c:=0;
       while kgt;0 do
        begin
        c:=c + k mod 10;
        k:= k div 10;
        end;
        if c mod 3 = 0 then
        q:=q+1;
        end;
       end;
      writeln(q);
      end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт