Условие задачи : Найти произведение первых n нечетных чисел натурального ряда с помощью цикла for (Язык Pascal).
Сложность : легкая .
Решение задачи :
Для начала продумаем наше решение. Нам сказано найти произведение первых n нечетных чисел натурального ряда, это значит что числа у нас пойдут от 1 до n.
Мы зададим n , пустим цикл и в нем будем каждое число проверять на нечетность, если оно нечетное, то считаем произведение.
Нам понадобятся следующие переменные :
- Переменная n — для количества чисел
- Переменная i — для цикла
- Переменная proiz — для произведения чисел
Начнем мы с каркаса нашей программы :
uses crt; var n , i ,proiz : integer; begin write('Введите кол-во чисел : '); readln(n); proiz := 1; end.
Тут мы объявили переменные, и попросили пользователя ввести количество чисел, так же мы присвоили переменной proiz значение 1, для того чтобы произведение у нас не было всё время равным нулю.
Теперь цикл , в котором мы будем определять четность числа, делать мы это будем с помощью операции mod, которая ищет остаток от деления, если остаток будет не равным нулю это будет означать что число нечетное и тогда мы можем его заносить в произведение :
for i:=1 to n do begin if (i mod 2 <> 0) then proiz := proiz * i ; end;
Всё решение задачи Pascal :
uses crt; var n , i ,proiz : integer; // объявили переменные begin clrscr; // очищаем экран write('Введите кол-во чисел : '); readln(n); // просим пользователя ввести кол-во чисел proiz := 1; // присваиваем 1 произведение, чтобы оно всегда не равнялось нулю for i:=1 to n do // пускаем цикл begin if (i mod 2 <> 0) then // проверяем нечетное ли число proiz := proiz * i ; // если нечетное, то заносим его в произведение end; writeln('Произведение первых нечетных ', n , ' чисел = ', proiz); // выводим результат readln; // чтобы программа не закрывалась end.