Задачи по Pascal. Найти произведение первых n нечетных чисел натурального ряда.

Задачи по Pascal

Условие задачи : Найти произведение первых n нечетных чисел натурального ряда с помощью цикла for (Язык Pascal).

Сложность : легкая .

Решение задачи :

Для начала продумаем наше решение. Нам сказано найти произведение первых n нечетных чисел натурального ряда, это значит что числа у нас пойдут от 1 до n.

Мы зададим n , пустим цикл и в нем будем каждое число проверять на нечетность, если оно нечетное, то считаем произведение.

Нам понадобятся следующие переменные :

  1. Переменная n — для количества чисел
  2. Переменная i — для цикла
  3. Переменная 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.

cyber
Оцените автора
CyberLesson | Быстро освоить программирование Pascal и C++. Решение задач Pascal и C++
Добавить комментарий