Подсчитать, сколько элементов последовательности делятся без остатка на 2 и на 5

@KobaValic · Регистрация: 19.10.2014

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

Дана последовательность из N натуральных чисел. Подсчитать сколько элементов последовательности удовлетворяют условию ( a % 2==0 && a % 5==0 ) Помогите пожалуйста, я так понимаю тут надо написать все числа которые делятся на 2 и 5 то есть 10/20/30 и т.д. Но я незнаю как написать.

@bormant · 19.10.2014, 14:43

Поскольку форум Turbo Pascal, то

Pascal

const n=10;
var i, a, c: Integer;
begin
  Write('Введите ',n,' чисел: '); {c:=0;}
  for i:=1 to n do begin
    Read(a); if (a mod 2=0) and (a mod 5=0) then Inc(c);
  end;
  WriteLn(c,'чисел удовлетворяют условию.');
end.

@Puporev · 19.10.2014, 14:43

Немогу написать код

Так и не видно чтобы ты его пытался написать.

@bormant · 19.10.2014, 14:48

А можно вспомнить математику, и написать так:

Pascal

const n=10;
var i, a, c: Integer;
begin
  Write('Введите ',n,' чисел: '); {c:=0;}
  for i:=1 to n do begin
    Read(a); if a mod 10=0 then Inc(c);
  end;
  WriteLn(c,' чисел удовлетворяют условию.');
end.

@KobaValic · 19.10.2014, 14:49 **[ТС]**

Спасибо большое.

@Puporev · 19.10.2014, 14:50

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

if a mod 10 then Inc(c)

И чо?

@bormant · 19.10.2014, 14:51

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

И чо?

Вопрос не понят.

То, что делится и на 2, и на 5, имеет в своем разложении делители и 2, и 5, то есть, делится на 10. Не?

PS. Ага, "=0" прозевал, поправил. Писал в форумном редакторе, стер лишнего из предыдущего примера.

@KobaValic 0 / 0 / 0 Регистрация: 19.10.2014 Сообщений: 30
		1
	Подсчитать, сколько элементов последовательности делятся без остатка на 2 и на 5 19.10.2014, 14:13. Показов 939. Ответов 6 Метки нет (Все метки) Дана последовательность из N натуральных чисел. Подсчитать сколько элементов последовательности удовлетворяют условию ( a % 2==0 && a % 5==0 ) Помогите пожалуйста, я так понимаю тут надо написать все числа которые делятся на 2 и 5 то есть 10/20/30 и т.д. Но я незнаю как написать. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	19.10.2014, 14:43	3
	Немогу написать код Так и не видно чтобы ты его пытался написать. 0

@KobaValic 0 / 0 / 0 Регистрация: 19.10.2014 Сообщений: 30
	19.10.2014, 14:49 [ТС]	5
	Спасибо большое. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	19.10.2014, 14:50	6
	Сообщение от bormant if a mod 10 then Inc(c) И чо? 0

@bormant Модератор 7771 / 4600 / 2824 Регистрация: 22.11.2013 Сообщений: 13,080 Записей в блоге: 1
	19.10.2014, 14:51	7
	Сообщение от Puporev И чо? Вопрос не понят. То, что делится и на 2, и на 5, имеет в своем разложении делители и 2, и 5, то есть, делится на 10. Не? PS. Ага, "=0" прозевал, поправил. Писал в форумном редакторе, стер лишнего из предыдущего примера. 0