Вычеслить произведение нечётных чисел на отрезке от 30 до 90

Вычеслить произведение нечётных чисел на отрезке от 30 до 90

Задать свой вопрос
1 ответ

program raf105;

var

 i,pro: integer;

begin

 pro:=1;

 for i:=30 to 90 do

   if i mod 2 lt;gt; 0

     then pro:= pro*i;

 writeln('Творение нечётных от 30 до 90: ',pro);

end.

PascalABC 3.4.2

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт