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ố dương của |a+b|
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ố
By Adalynn
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.
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.