Задано число n. Определить значение выражения - PascalABC.NET
Формулировка задачи:
Задано число n. Определить значение выражения.
Решение задачи: «Задано число n. Определить значение выражения»
textual
Листинг программы
begin
var n := ReadLnInteger('n =');
var Pup := 1.0; var Pdown := 0.0;
for var i := 1 to n do
begin Pup *= i; Pdown += i; end;
WriteLn('P = ', Pup / Pdown);
end.
Объяснение кода листинга программы
- В начале кода объявляются две переменные Pup и Pdown, которые будут использоваться для хранения значений.
- Затем с помощью цикла for происходит вычисление значения выражения Pup *= i; Pdown += i;.
- После окончания цикла, значение выражения P = Pup / Pdown; выводится на экран.