С клавиатуры вводится n натуральных чисел, каждое не больше 1000. Подсчитать

С клавиатуры вводится n естественных чисел, каждое не больше 1000. Подсчитать количество введённых чисел, каждое из которых делится нацело на 3 и заканчивается цифрой 2.
Как составить такую задачку в паскале? Помогите пожалуйста

Задать свой вопрос
1 ответ

var n,i,k,a: integer;

begin

  readln(n);

  k:=0;

  for i:=1 to n do begin

    readln (a);

    if (a div 3 lt;gt; 0) and (a mod 10 = 2) then

      k:=k+1;

  end;

  writeln(k);

end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт