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

Напишите программку, которая в последовательности естественных чисел определяет количество чисел ,кратных 3 и заканчивающихся на 2.Программка получает на вход количество чисел в последовательности,а потом сами числа.Количество чисел не превышает 1000.Введенные числа по модулю не превосходят 30 000.Программка должна вывести одно число:количество чисел,кратных 3 и заканчивающихся на 2.

Задать свой вопрос
1 ответ
 var
 a,k,n,i:integer;
begin
k:=0;
 writeln('Enter sequence size:');
 readln(n);
 for i:=1 to n do
  begin;
   readln(a);
    if (a mod 3=0) and (a mod 10=2) then k:=k+1;
  end;
writeln('Number of accepted:',k);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт