Question

Пожалуйста очень нужно решить 4 пример и прописать код для pascal abc net

Answer 1

Ответ:

program CalculateP;

var

 k, j: Integer;

 P: Double;

begin

 Write('Введіть значення k: ');

 ReadLn(k);

 P := 1.0; // Ініціалізуємо P початковим значенням

 for j := 1 to k do

 begin

   // Перевірка на ділення на нуль

   if (j - 4) = 0 then

   begin

     WriteLn('Ділення на нуль не допускається.');

     Halt; // Виходить з програми у разі помилки

   end;

   P := P * ((j - j * j) / (j - 4));

 end;

 WriteLn('Значення P для введеного k дорівнює: ', P);

end.