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

Question

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

Answer 1

Var a,b,i:integer;
begin
write ('Введите два целых числа (A>B): ');
readln (a,b);
for i:=a downto b do
if i mod 2<>0 then write (i,'   ')
end.

var
a,b,i:integer;
p:longint;
begin
write ('Введите два целых числа (A>B): ');
readln (a,b);
p:=1;
for i:=a downto b do p:=p*i;
writeln ('Произведение всех целых чисел от ',a,' до ',b,' равно ',p)
end.