Помогите пожалуйста . паскаль . составьте программу нахождения произведения нечётных чисел 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.
Не нашли ответ?
Похожие вопросы