Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Vũ Điệu Công

Viết chương trình Pascal nhập vào 2 số a, b và in ra màn hình ƯCLN của a, b. Dùng câu lệnh while… do…

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

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

Begin

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

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

ta:=a;

tb:=b;

While tb <> 0 do

Begin

r:=ta mod tb;

ta:=tb;

tb:=r;

End;

ucln:=ta;

Write('UCLN(',a,' ',b,') = ',ucln);

Readln

End.


Các câu hỏi tương tự
Nguyễn Huỳnh Đổng Chi
Xem chi tiết
Nguyễn Huỳnh Đổng Chi
Xem chi tiết
日光
Xem chi tiết
Nguyenquochuy
Xem chi tiết
Ngọc Nguyễn
Xem chi tiết
Nguyễn Thanh Anh
Xem chi tiết
Khánh Hoàng
Xem chi tiết
phuongtra pham
Xem chi tiết
Xuân Bách Đoàn
Xem chi tiết