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

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

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

var k,n,i,x:integer;

begin

 readln(n);

 for i:=1 to n do begin

   readln(x);

   if(x mod 3 = 0) and (x mod 10 = 5) then

     k:=k+1;

 end;

 writeln(k);

end.

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


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

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

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

Войти на сайт