Найти произведения четных чисел в промежутке от 23 до 5
Найти произведения четных чисел в промежутке от 23 до 5
Гость
Ответ(ы) на вопрос:
Гость Var i,s:longint;
begin s:=1;
for i:=23 downto 5 do
beginif (i mod 2 = 0)
then s:=s*i;
end;
writeln(s);
end.
Не нашли ответ?
Похожие вопросы