ПОМОГИТЕ!Даны два целых числа A и В, Aamp;gt;B. Выведите все нечётные

ПОМОГИТЕ!

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

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

Задать свой вопрос
2 ответа
Var a,b,i:integer;
begin
readln(a,b);
for i:=a downto b do
if i mod 2 lt;gt; 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.
1+1+1+1+1+1+1+1+1+1+1+1-1
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт