Консультация № 188117
20.10.2015, 23:29
0.00 руб.
0 1 1
Здравствуйте! У меня возникли сложности с таким вопросом:
Дано М.Найти произведение 3*5*7*..(2М+1)

Обсуждение

давно
Старший Модератор
31795
6196
21.10.2015, 00:23
общий
это ответ
Здравствуйте, Посетитель - 399061!

Смотрите приложение. Введена проверка на переполнение буфера, простите возможности процессора и паскаля, в данном случае не безграничны.
Код:
var
i,m,n:integer;
begin
write('enter m:');{вводим крайнее число}
readln(m);
n:=1;{начальное произведение}
for i:=1 to m do{в цикле до введенного числа}
begin
n:=n*(2*i+1);{очередной член последовательности}
if n<0 then{проверка переполнения буфера}
begin
write('overflow error ');{ссобщение о переполнении буфера}
break;{прерывание цикла}
end
end;
write('Result:=',n);{выводим полдученое значение}
readln;{ожидаем ввод}
end.

Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа