Задача в pascal abc net: Вычислить произведение с помощью цикла "До(repeat)" (3+f)(6+f)(9+f)...(27+f)

Question

Задача в pascal abc net: Вычислить произведение с помощью цикла "До(repeat)" (3+f)*(6+f)*(9+f)*...*(27+f)

Гость

Ответ(ы) на вопрос:

Accepted Answer

var s,i,f:integer; Begin read(f); s:=1; repeat i:=i+3; s:=s*(i+f); until i>=27; writeln(s); End.