- 23 Tháng sáu 2015
- 77
- 40
- 51
- 22
- Quảng Trị
- THPT Thị Xã Quảng Trị
[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!
ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.
Hãy viết đoạn chương trình dưới đây dưới dạng thuật toán (tìm UCLN):
procedure UCLN(a, b: integer);
var x,y,r: integer;
Begin
x:= b;
y:= a;
while y <> 0 do
begin
r:= x mod y;
x:= y;
y:= r;
end;{x là ước số chung cần tìm}
End.
Vì lớp mình có tiết dự giờ mà cô giao bài tập về chưa hiểu lắm, mong mọi người giúp đỡ !
procedure UCLN(a, b: integer);
var x,y,r: integer;
Begin
x:= b;
y:= a;
while y <> 0 do
begin
r:= x mod y;
x:= y;
y:= r;
end;{x là ước số chung cần tìm}
End.
Vì lớp mình có tiết dự giờ mà cô giao bài tập về chưa hiểu lắm, mong mọi người giúp đỡ !
