Nhập 2 số nguyên dương a và b. Sau đó: Tính và in ra màn hình tổng, hiệu, tích thương và ước chung lớn nhất của 2 số đó. Tính tổng các ước số

0 bình luận về “Nhập 2 số nguyên dương a và b. Sau đó: Tính và in ra màn hình tổng, hiệu, tích thương và ước chung lớn nhất của 2 số đó. Tính tổng các ước số”

1. uses crt;

   var a,b,tg,i,tong:integer;

   function tinh(x,y:integer):integer;

   begin

   tg:=x mod y;

   if tg=0 then tinh:=y

   else tinh:=tinh(y,tg);

   end;

   BEGIN

   clrscr;

   write(‘Nhap a: ‘);

   readln(a);

   write(‘Nhap b: ‘);

   readln(b);

   tong:=1;

   for i:=2 to abs(a+b) do

   if (abs(a+b) mod i =0) then

   tong:=tong+i;

   writeln (‘Tong 2 so la: ‘,a+b);

   writeln(‘Hieu 2 so la: ‘,a–b);

   writeln(‘Tich 2 so la: ‘,a*b);

   writeln(‘Thuong 2 so la: ‘,a/b:0:4);

   writeln(‘UCLN 2 so la: ‘,tinh(a,b));

   writeln(‘Tong cac uoc cua ‘,a+b,‘ la: ‘,tong);

   readln;

   END.

   Bình luận

2. program tinh;

   uses crt;

   var a,b,x,y,t:integer;

   begin

   clrscr;

   write(‘Nhap a: ‘);  readln(a);

   write(‘Nhap b: ‘);    readln(b);

   writeln(a,’ + ‘,b,’=’,a+b);

   writeln(a,’ – ‘,b,’=’,a-b);

   writeln(a,’ x ‘,b,’=’,a*b);

   writeln(a,’ : ‘,b,’=’,a/b:2:2);

   x:=a;   y:=b;

   t:= y mod x;
   while t <> 0 do
      Begin
         t:= x MOD y;
         x:= y;
         y:= t;
      End;

   writeln(‘UCLN(‘,a,’,’,b,’)=’,x);

   write(‘Cac uoc duong cua |’,a,’+’,b,’| la: ‘);

   for t:=1 to abs(a+b) do

     if abs(a+b) mod t=0 then write(t,’ ‘);

   readln

   end.

   Bình luận