Даны натуральные числа. Определить количество членов последовательности, кратных 3 и не кратных 5

@rAdo56 · Регистрация: 20.03.2012

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста, пропустил, теперь не могу наверстать

Даны натуральные числа n, a1, a2, …, an. Определить количество членов последовательности а1, а2, …, аn кратных 3 и не кратных 5.

@klast · 22.05.2012, 12:40

Pascal

var
  n, k, i, a: integer;
 
begin
  k := 0;
  read(n);
  for i := 1 to n do 
  begin
    read(a);
    if (a mod 3 = 0) and (a mod 5 <> 0) then inc(k);
  end;
  writeln(k);
end.

Добавлено через 28 секунд

Сообщение от klast

inc(k);

тоже самое что и k:=k+1;

Добавлено через 1 минуту
Формат ввода
5
1 3 6 15 7
Формат вывода
2

@rAdo56 0 / 0 / 0 Регистрация: 20.03.2012 Сообщений: 17
		1
	Даны натуральные числа. Определить количество членов последовательности, кратных 3 и не кратных 5 22.05.2012, 12:30. Показов 7829. Ответов 1 Метки нет (Все метки) Помогите пожалуйста, пропустил, теперь не могу наверстать Даны натуральные числа n, a1, a2, …, an. Определить количество членов последовательности а1, а2, …, аn кратных 3 и не кратных 5. 0

	22.05.2012, 12:40

Опции темы

Даны натуральные числа. Определить количество членов последовательности, кратных 3 и не кратных 5

Решение