Пожалуйста, помогите решить задачу по информатике!
Найдите произведение первых десяти нечетных чисел. Программа в паскале и, желательно, блок-схема. Заранее спасибо.
Нет комментариев
Ответы
Гость 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.
Нет комментариев
Список предметов
