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

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.

Comments

Извините,у меня там ещё вопросик есть на странице. Посмотрите? Только программу составить

---

Спасибо))

---

Извините,а можно ещё вопрос. Что выводит writeln? Я поняла,что ответ. Я имею ввиду pr:20:3

---

хорошо,спасибо большое