Помогите пожалуйста . паскаль . составьте программу нахождения произведения нечётных чисел 3•5•7...•13

Помогите пожалуйста . паскаль . составьте программу нахождения произведения нечётных чисел 3•5•7...•13
Гость
Ответ(ы) на вопрос:
Гость
Program aaa;Var x,s: integer;Begins:=1;For x=3 to 13 doIf x mod 2=1 thens=s*x;WriteLN('Произведение равно ', s);End.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы