Пожалуйста, помогите решить задачу по информатике! Найдите произведение первых десяти...

Question

Пожалуйста, помогите решить задачу по информатике!

Найдите произведение первых десяти нечетных чисел. Программа в паскале и, желательно, блок-схема. Заранее спасибо.

Answer 1

Pascal:

Var
   A:byte;
   P:real;
Begin
P:=1;
For A:= 0 to 9 do
    P:=P*(A*2+1);
For A:= 0 to 8 do
    Write(A*2+1,'*');
WriteLn((A+1)*2+1,' = ',P)
End.

---