Begin
r:= a mod b; { }
a:=b;
b:=r;
end;
nod:=b;
end;
{ }
Begin
writeln ( ())
Write ( );
Readln (c1, c2);
nd:=Nod (c1, c2);
Writeln( , c1, , c2, ,nd);
end;
.
, . , , , , .
Turbo Pascal , .
(. 10). , . , , , .
.10.
. :
Procedure (var1:1;var
1:1;; var :;)
Var
{ }
Begin
{ }
end;
procedure Pascal, , ; , , begin end, ; 1 , . , .
. var , . , , , , .
Line, . : (n) ( ), () , .
procedure Line (n:integer;c:char);
Var
i:integer;
Begin
for i:=1 to n do Write(c);
|
|
Writeln;
end;
.
:
{ };
; , , , , . , Line :
Line (30,-); Line (n+2,*); Line (n,ch);
. Line.