Найти произведение четных чисел от 1 до 15

Question

Информатика

Ипполит

3 сентября, 22:21

Найти произведение четных чисел от 1 до 15

+2

Ответы (1)

Знаете ответ на вопрос?

Лаврич · Answer 1

Можно так:

var i, p: integer;

begin

p:=1;

for i:=2 to 15 do

if i mod 2=0 then p:=p*i;

writeln ('Произведение четных чисел: ', p)

end.

Или так:

var i, p: integer;

begin

i:=2;

p:=1;

while i<15 do

begin

p:=p*i;

i:=i+2

end;

writeln ('Произведение четных чисел: ', p)

end.