Условие задачи : Найти произведение первых 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.
