ПОМОГИТЕ!
Даны два целых числа A и В, A>B. Выведите все нечётные числа от A до B включительно, в порядке убывания.
Даны два целых числа А и В, A>B. Выведете произведение всех чисел от А до В.
Даны два целых числа A и В, A>B. Выведите все нечётные числа от A до B включительно, в порядке убывания.
Даны два целых числа А и В, A>B. Выведете произведение всех чисел от А до В.
Answers & Comments
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.