: ' . . , , , , longint. 0.
, , , .
ϳ , . .
, . . , . , , .
() . , , , . , , , , . , , .
, , . .
program nsk_n_v2; { n }
var a, nsk: longint; { : }
procedure nsk_2; { }
var x, y: longint; { , }
begin { }
x:= nsk; y:= a; { }
while x <> y do { }
if x > y then x:= x - y { , }
else y:= y - x; { }
nsk:= (nsk div x) * a; { }
end; { }
begin { }
nsk:= 1; { nsk_2 }
a:= 1; { }
while a <> 0 do { 0 }
begin
write(' : '); readln(a); { }
if a<>0 then { }
begin
nsk_2; { }
writeln(' = ',nsk); { }
end;
end; { , 0 }
|
|
|
writeln(' <Enter>'); { }
readln; { <Enter> }
end. { }
nsk_2. , write(x, ' ', y ), , . , [6], . . . , 䳿, , , :
1. ( , , ..) , .
2. 䳿 .
3. , .
4. - .
5. , 䳿 , , , .
. , .
program demo_proc;
uses dos, crt;
var x, y: longint; { }
procedure hello;
var x: byte; { }
begin
x:= 5; { }
writeln(' = ',x); { }
end;
procedure inc(x:longint); { }
begin
x:=2*x; { }
writeln('X = ',x); { }
end;
begin
clrscr;
write('i : ');readln(x); { }
writeln('X = ',x); { }
hello; { }
inc(x); { }
writeln('X = ',x); { }
writeln(' i i <Enter>');
readln;
end.
. 1.
|
, . 1. , 300. ϳ hello 5 , inc(x) 1, , inc, , , , . ? , .
: . , . : , .
|
|
|
, , var , -. procedureinc(x:longint); -. - .
procedure inc(var x: longint);, -. - , , . var , .
. , .
䳺, , .
149. 149. , . , :
