Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
phan đăng khoa

Viết chương trình nhập 2 số nguyên dương a và b +Tìm UCLN của hai số a,b +Tìm BCNN của hai số nguyên a,b

Kiều Vũ Linh
6 tháng 5 2023 lúc 11:42

Var a,b,ta,tb,r,ucln,bcnn:integer;

Begin

Write('a = ');readln(a);

Write('b = ');readln(b);

ta:=a;

tb:=b;

Repeat

r:=ta mod tb;

ta:=tb;

tb:=r;

Until r = 0;

ucln:=ta;

bcnn:=a*b div ucln;

Writeln('UCLN(',a,' ',b,') la ',ucln);

Write('BCNN(',a,' ',b,' la ',bcnn);

Readln

End.


Các câu hỏi tương tự
Lương Ngọc Anh
Xem chi tiết
Anh Tuấn
Xem chi tiết
lương văn hưng
Xem chi tiết
Nhật Tiến Sì
Xem chi tiết
Nhung Hoàng
Xem chi tiết
Thiên Nhật
Xem chi tiết
Fhcdgv
Xem chi tiết
Danh Nguyễn
Xem chi tiết
Phương Thảo
Xem chi tiết