Найти произведение положительных нечетных чисел, меньших k. k<30 - Free Pascal
Формулировка задачи:
привет всем, помогите написать программу.
найти произведение положительных нечетных чисел, меньших k. k<30
Решение задачи: «Найти произведение положительных нечетных чисел, меньших k. k<30»
textual
Листинг программы
Var i,k,p:integer;
Begin
Write('K=');
Readln(k);
i:=1;
p:=1;
While i<k do
begin
p:=p*i;
i:=i+2;
end;
Writeln('P=',p);
Readln;
End.
Объяснение кода листинга программы
- Объявлены три переменные: i, k, p типа integer (целое число).
- Пользователю предлагается ввести значение переменной k с помощью функции Readln().
- Переменная i инициализируется значением 1.
- Переменная p инициализируется значением 1.
- Запускается цикл While, который выполняется до тех пор, пока значение переменной i меньше значения переменной k.
- Внутри цикла значение переменной p умножается на значение переменной i.
- Значение переменной i увеличивается на 2 после каждой итерации цикла.
- По завершении цикла выводится значение переменной p с помощью функции Writeln().
- Программа ожидает ввода с помощью функции Readln(), чтобы пользователь мог увидеть результат.
- Программа завершается.