Найти произведение всех нечетных чисел от числа "а" до числа "b"
Найти произведение всех нечетных чисел от числа "а" до числа "b"
Гость
Ответ(ы) на вопрос:
ГостьProgram n1;
var a,b,i: integer;
p: real;
begin
p:=1;
readln(a,b);
for i:=a to b do if i mod 2<>0 then p:=p*i;
write(p);
end.
Не нашли ответ?
Похожие вопросы