: . : , . , . , ! :
program nsd;
var a, b, a1, b1: integer;
begin
write( : ); readln(a);
write( : ); readln(b);
a1:= a; b1:= b; { }
while a1 <> b1 do { 1 b1 }
if a1 > b1 then a1:= a1 - b1 { 1 1=1b1 }
else b1:= b1 - a1; { b1 = b1 a1 }
writeln( ,a, ,b, = ,a1);
readln
end.
, . . , , .
, , , .
. , , :
.
.
.
, , , .
5. , - !
, , , , . , .
, , .
Program summa3; { }
var i, sum: integer;
Begin
sum:= 0;
i:= 1;
Repeat { ! }
sum:= sum + i;
inc (i);
until i > 100; { }
Write ('S = ',sum);
Readln;
End.
, Begin... End, : Repeat... Until.... ()... ...
|
|
, . , , : , .
쳺 : , , . , , , . 쳺 : Sum , 1, 100, .
, , ( ) . , , , . , , , .
, , :
n ;
n ;
n .
, , , ..
. 0 ( ). 1, Sum:= Sum +1, Sum = 1, 1, 2 , 1>100, , . Sum:= Sum + 2, Sum = 3, 1, 3 .. 99 Sum 4950 100, 100>100, , Sum:= Sum +100, Sum =5050, 1, 101. 101>100, . , : . .
ij | S | i > 100 | |
+1 | |||
+2 | |||
+3 | |||
... | ... | ... | |
+99 | |||
+100 |
Repeat... Until , , Begin... End.
|
|
, ' , . , , ,
. , , :