Question

ПОМОГИТЕ!

Даны два целых числа A и В, A>B. Выведите все нечётные числа от A до B включительно, в порядке убывания.

Даны два целых числа А и В, A>B. Выведете произведение всех чисел от А до В.

Answer 1

var a,b,i:integer;
begin
readln(a,b);
for i:=a downto b do
if i mod 2 <> 0 then write(i,'  ')
end.

var a,b,i,p:integer;
begin
readln(a,b);
p:=1;
for i:=b to a do p:=p*i;
writeln(p)
end.