: , .
Program summa0; { }
label mmm;{ }
var i, sum: integer; { i , , sum }
begin
i:= 1; { , }
sum:= 0; { , }
mmm: sum:= sum + i; { }
i:= i+1; { }
if i <= 100 then goto mmm; { <=100 }
write ('S = ',sum); { }
readln;
end.
, , . , , . , ( ) : ! .
. . . , , .
? 1 100, , 1, 1. 0. . ϳ 1 , . , ( ), .
, . , , , , , . , , , , , , , , .. , , .
.
.
Program summa1; { }
|
|
var i, sum: integer; { i , , sum }
begin
sum:= 0; { , }
for i:= 1 to 100 do { ! }
sum:= sum + i; { }
write ('S = ',sum); { }
readln;
end.
, ᒺ , , , , -, , .
, . , ,
for i:= 1 to 100 do
:
1 100
. :
for := to do
:
1
... ( , )
: . 쳺 : 1 100 Sum .
, ( ) . , , . , , . .
100 (100 - 1 + 1, ). .
, , , ? :
for i:= 100 downto 1 do
downto to , . .
. 0 . 1, , 1>100, , Sum:= Sum +1, Sum = 1, 1, 2. 2>100, , Sum:= Sum +1, Sum = 3 1, 3 .. 99 Sum 4950 100, 100>100, , Sum:= Sum +100, Sum = 5050, 1, 101. 101>100, . , : . .
|
|
> 100 | S | ||
+1 | |||
+2 | |||
+3 | |||
+4 | |||
... | ... | ... | ... |
+99 | |||
+100 | |||
: . , . , , Begin... End. :
...
for i:= 1 to 100 do
Begin
sum:= sum + i;
End;
...
, , , , .
ϳ . , , :