Информатика, опубликовано 2018-08-22 21:41:39 by Гость
Найти произведение четных чисел от 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 begin
p:=p*i;
i:=i+2
end;
writeln(Произведение четных чисел: ,p)
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на