Найти произведение четных чисел от 1 до 15
Найти произведение четных чисел от 1 до 15
Гость
Ответ(ы) на вопрос:
ГостьМожно так:
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.
Не нашли ответ?
Похожие вопросы