Question

Помогите с информатикой пожалуйста!(Срочно и очень важно)
Используя оператор цикла, составить АЛГОРИТМ вычисления
произведения: F=3*6*9*12*.....*3N, где N выводится.

Answer 1

//Pascal
var i,n:integer;
f:word;
begin
f:=1;
readln(n);
for i:=1 to n do
  f:=f*3*i;
writeln(f);
end.