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|

Anhtu123

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 48 xem

1 trả lời

Thích Trả lời

lngiau28

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.

Vote (0) Phản hồi (0) 2 năm trước

737628580300593

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.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

cho 31 số nguyên trong đó tổng 3 số bất kì trong chúng là 1 số nguyên âm . hỏi tổng 31 số nguyên đó là số âm hay số dương

VẪN LÀ CHỈ CẦN VIẾT LUẬN ĐIỂM THÔI Từ việc cảm nhận phẩm chất của những ng lính trong bài thơ " Bài thơ về tiểu đội xe ko kính" và những hiểu biết xã hội của bản thân, Viết bài văn ngắn trình bày suy nghĩ của em về lòng dũng cảm

Sưu tầm 1 bài thơ lục bát và tìm hiểu đặc điểm thể thơ lục bát

Giúp em với ạ. Em cần gấp lắm ạ. Em cảm ơn ạ 😭

Giúp em với ạ Em đag cần gấp lắm ạ 😭🙏👇 Sang câu đk loại 2

Các biểu tượng không đc hiển thị cho một số tệp tin word, excel Làm thế nào để khắc phục ạ

Tìm luận điểm: a) "Đừng xấu hổ khi không biết, chỉ xấu hổ khi không học " Viết bài văn ngắn trình bày suy nghĩ của em về ý kiến trên b) Tự học và tự lập mang lại rất nhiều lợi ích cho người học.Viết bài văn ngắn trình bày suy nghĩ của em về ý kiến trên Chỉ cần tìm luận điểm thôi nha

Giải hộ em với nha mng em đang cần gấp Đổi sang đk loại 2

tìm những tư liệu ( viết thành 1 đoạn văn ngắn) về: Nguyễn Văn Siêu,Cao Bá Quát, Nguyễn Ngọc Ký, Lương Đình Của, Trần Đại Nghĩa

Cho tam giác ABC có AB=3. Tập hợp các điểm M thỏa mãn MA^2 +2MB^2 =9 (MA, MB là các vecto) là: A. Đưong tròn đừong kính 1 B. Đường tròn đường kính 2 C. Đường tròn đường kính 4 D. Đường tròn đừong kính 9 Nhanh nhé giả thích nửa

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến