Question

25
П(i- i/3)
i=n
Для вышеизложенного условия составить алгоритм (б/с), программу на ЯП
Паскаль и протестировать программу.
8-вариант​

Answer 1

program fp;

uses

crt;

var

i: integer;

var

pr: real;

begin

pr := 1;

for i := 8 to 25 do

pr := pr * (i - (i / 3));

writeln('Ответ: ', pr: 20: 3);

readln;

end.