Автор | Сообщение |
|
Отправлено: 22.02.21 05:55. Заголовок: задание 16 №37
Подскажите, как решить задачу 37?
|
|
|
Ответов - 4
[только новые]
|
|
|
| Администратор
|
Сообщение: 2485
|
|
Отправлено: 22.02.21 09:59. Заголовок: Sikvllz пишет: как р..
Sikvllz пишет: Например, написать программу для перебора с циклом. Внутри цикла вызываем функцию и проверяем, находится ли ее результат в нужном диапазоне.
|
|
|
|
Отправлено: 22.02.21 10:29. Заголовок: Спасибо! Но я не оче..
Спасибо! Но я не очень понимаю как сделать проверку, можете подсказать в чем ошибка? function F(n,m: integer): integer; begin if m = 0 then F:= 1 else F:= n*F(n,m-1) end; var x,k,i,j,n:integer; begin k:=0; for n:=1 to 10000 do if (F(n,2)>100) and (F(n,2)<1000) then inc(k); writeln(k); end.
|
|
|
|
| Администратор
|
Сообщение: 2486
|
|
Отправлено: 22.02.21 10:57. Заголовок: Sikvllz пишет: if (..
Sikvllz пишет: цитата: | if (F(n,2)>=100) and (F(n,2)<=1000) then |
|
И с точки зрения сокращения времени лучше вычислить F(n,2) и сохранить это значение в переменной, а потом эту переменную дважды использовать в условии.
|
|
|
|
Отправлено: 22.02.21 10:32. Заголовок: Лишние переменные за..
Лишние переменные забыл удалить!
|
|
|
|