подсчитать творенье целых нечётных чисел спектра [a ,b]

Подсчитать творенье целых нечётных чисел спектра [a ,b]

Задать свой вопрос
1 ответ
Program Proizved;
var i, a, b, rez : integer;
begin
write('введите начало спектра ');
readln(a);
write('введите конец диапазона ');
readln(b);
rez:=1;
for i:=a to b do
if (i mod 2)lt;gt;0
then rez:=rez*i;
i:=i+1;
writeln('Творение нечетных чисел спектра = ', rez);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт