Вводится последовательность из 15 целых чисел. Найти произведение четных из них.

Ответы:

Милослава Столяренко

04-04-2011 02:25

var a:array[1..15] of integer;i,b: integer;beginb:=1;for i:=1 to 15 do readln(a[i]);for i:=1 to 15 do if a[i] mod 2 =0 then b:=b*a[i];writeln(b);end.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя Диляра Панютина

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Вводится последовательность из 15 целых чисел. Найти произведение четных из них.» от пользователя Диляра Панютина в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!