Question

1) viết bộ số chung a,b 2) viết thủ tục hoán đổi giá trị a và b 3) viết thủ tục so sánh a và b tìm số lớn nhất

Answer 1

1)

uses crt;

var a,b,bcnn,i:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

bcnn:=a*b;

for i:=a*b-1 downto 1 do 

  if (i mod a=0) and (i mod b=0) then

begin

if bcnn>i then bcnn:=i;

end;

writeln(bcnn);

readln;

end.

 

Answer 2

2:

procedure hoandoi(a,b:integer);

var tam:integer;

begin

tam:=a;

a:=b;

b:=tam;

end;

  

Answer 3

3:

procedure max(a,b:integer);

begin

if a>b then max:=a

else max:=b;

end;