:
1. , , ?
2. repeat until?
3. ?
4. ?
:
1. : 
. 
. (: -1644128).
2. : 
. 
. (: -0,0346789).
3. : 
. . (: -128846,8).
4. : 
. . (: 1,555535-32).
5. : 
. . (: 3,5158813).
6. 20% . , 
? (: =1 =100 21 ).
7. , , - , - . , 
? (: =105 14 ).
8. 10 . 10% . 7- ? (:17,71561 ).
9. 1+2+3+4+, , ? ( =252 23 ).
10. 
, m, 
. (: 
=0,5, =2).
11. 
, : 
(: =42).
12. , (: 11).
13. , (: 3).
14. 
, 
(: 
).
15. 10 . 10% . 100 ? (: 8 ).
16. , : 
(: =411).
17. : 
. (: -2543,513).
18. : 
. (5 5). (: 33).
19. , , (: 45, 23, 15 : 83, : 27,67).
|
|
|
20. , (: 56,75,43,0 : 75).
:
:
1. .., .., .. . - .: , 1988. - 320 .
2. .., .. . - .: , 1987. - 112 .
3. . ./. . .: , 1989. - 360 .
4. . . - .: , 1982. - 382 .
5. ., ., . Delphi: . . - : ., 1995. - 608 .
6. .. Delphi: . .- .: , 1995. - 464 .
7. .. Delphi : - .: . - 316 .
:
1. .. . - .: , 1988. - 224 .
2. .. : . . - .: , 1989. - 160 .
3. . : . . - .: , 1987. - 232 .
4. . Windows: 2 .; . . - .: , 1993. - 536 .
5. .. . 3- . 1. . - .: .-. - , 1992. - 304 .
6. .. Windows. - .: .-. - , 1994. - 539 .
:
: repeat <> until <>.
: - . <> , , .
: , , , , , . . , , , , , . , , .
( 1 100):
var i,sum: integer;
begin
sum:=0; i:=0;
repeat
i:=i+1;
sum:=sum+i;
until i=100;
writeln('=',sum);
readln;
end.
, repeat ( ) ( ).
: , .
| -: | -: 1- 2- S=0 3- N- , . , , 0 , 4- () 5- 6- - , 1 , . 7 - 8- N , , 9- M=S/n 10- 11- |
program pr1;
|
|
|
var a: integer;
n: integer;
S: integer;
m: real;
begin
write ( );
S:=0;
n:=0;
repeat
readln (a);
S:=S+a;
n:=n+1;
until a<=0;
n:=n-1;
writeln ( :,S);
m:=S/n;
writeln ( :,m:6:2);
end.
6
