- , , . , , , .
. , , , , .
()- , , . ,
16) , , . . , , , ( , ). , , . , , (, ), .
17) , .
:
while do
.
eps:=0.001;while x > eps do x:=x/2;
:
repeat ; ;... until.
repeat WriteLn(' '); ReadLn(x);until x>0;
. . , . , . , , .
3 3 3 3 3
3 3 3 3 3
3 3 3 3 3
3 3 3 3 3
, 3 5 . for:
|
|
for i:=1 to 5 do write(3, ' '); |
4 , :
for k:=1 to 4 do {4 , begin end} begin for i:=1 to 5 do write(3, ' '); { } writeln; { } end; |
19)
- , . , - .
- , .
, , , .
:
1. - ( ).
2. .
3. .
: , , (Basic), (Pascal), ++, , , .
. , , .
- - .
- .
- ,
20) . . , , . .
.
, , .