Lời giải:
program UCLN;
uses Crt;
var a,b :integer;
begin
write ('nhap so a la ');readln (a);
write ('nhap so b la' );readln (b);
while a< >b do
if a > b then a:= a - b else b:=b-a;
write ('UCLN la :',a);
readln
end.
Gói VIP thi online tại VietJack (chỉ 200k/1 năm học), luyện tập gần 1 triệu câu hỏi có đáp án chi tiết
Nếu những bài toán mà câu hỏi chỉ liên quan tới một bảng, ta có thể:
Top of Form