|
|
|
ПОМОГИТЕ РЕШИТЬ ЗАДАЧКУ В Pascal АВС!!!!!!!!
|
|||
|---|---|---|---|
|
#18+
Вычислить s- сумму квадратов всех целых чисел, попадающих в интервал (ln(x),exp(x)),x>1. Тема: Операторы цикла. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.11.2009, 11:35:45 |
|
||
|
ПОМОГИТЕ РЕШИТЬ ЗАДАЧКУ В Pascal АВС!!!!!!!!
|
|||
|---|---|---|---|
|
#18+
а чего собсна непонятно? если вы сами не хотите делать, задайте вопрос в другом разделе (работа) 4 8 15 16 23 42 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.11.2009, 11:37:32 |
|
||
|
ПОМОГИТЕ РЕШИТЬ ЗАДАЧКУ В Pascal АВС!!!!!!!!
|
|||
|---|---|---|---|
|
#18+
НЮСЬКА, функция ЛеньДелатьСамой_ХочуХаляву(икс: сплавающейточкой): целый; переменные икс_один, икс_два, н: целый; начало Результат:=ноль; если икс больше единицы, то начало икс_один:=транк(натуральный_логарифм(икс)); если фрак(натуральный_логарифм(икс)) не равно нулю, то инк(икс_один); икс_два:=транк(эксп(икс)); для н:=икс_один до икс_два делать Результат:=Результат+н; конец; конец; ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.11.2009, 13:11:23 |
|
||
|
ПОМОГИТЕ РЕШИТЬ ЗАДАЧКУ В Pascal АВС!!!!!!!!
|
|||
|---|---|---|---|
|
#18+
поправка. Пред. пост - просто сумма. Сумма квадратов: функция ЛеньДелатьСамой_ХочуХаляву(икс: сплавающейточкой): целый; переменные икс_один, икс_два, н: целый; начало Результат:=ноль; если икс больше единицы, то начало икс_один:=транк(натуральный_логарифм(икс)); если фрак(натуральный_логарифм(икс)) не равно нулю, то инк(икс_один); икс_два:=транк(эксп(икс)); для н:=икс_один до икс_два делать Результат:=Результат+эскуэр(н); конец; конец; ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.11.2009, 14:19:29 |
|
||
|
|
start [/forum/topic.php?fid=16&msg=36308708&tid=1344104]: |
0ms |
get settings: |
8ms |
get forum list: |
13ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
138ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
53ms |
get tp. blocked users: |
1ms |
| others: | 189ms |
| total: | 417ms |
| 0 / 0 |
