Viết chương trình tìm ước chung lớn nhất của 2 số a và b

Vietjack.me giới thiệu bộ câu hỏi ôn tập Tin học có đáp án được biên soạn bám sát chương trình học giúp bạn ôn luyện và bổ sung kiến thức môn Tin học tốt hơn. Mời các bạn đón xem:

1 363 03/08/2023


Viết chương trình tìm ước chung lớn nhất của 2 số a và b

Đề bài: Viết chương trình tìm ước chung lớn nhất của 2 số a và b ( a,b là các số nhập từ bàn phím)

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.

1 363 03/08/2023


Xem thêm các chương trình khác: