|
|
|
Подскажите что в скобочках писать! ПоЖАЛУЙСТА!!! заранее блогодарна!
|
|||
|---|---|---|---|
|
#18+
nput.txt 5 procedure Cycle (переменные различные) var s,num: real; numtext: string; begin s:=1; numtext:=LoadFromFile('input.txt'); num:=StrToFloat(numtext); while num>0 do begin if num.(тут должно быть определение четности не помню команду)=true then num:=num/2; s:=s+1 else num:=num-1; s:=s+1; end; end; За ранее очень-очень благодарю!!!!!!! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.12.2007, 11:50 |
|
||
|
|
start [/forum/topic.php?fid=16&gotonew=1&tid=1345641]: |
0ms |
get settings: |
9ms |
get forum list: |
12ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
158ms |
get topic data: |
10ms |
get first new msg: |
6ms |
get forum data: |
3ms |
get page messages: |
35ms |
get tp. blocked users: |
1ms |
| others: | 209ms |
| total: | 447ms |
| 0 / 0 |
