Các bài toán về ước chung lớn nhất pascal năm 2024

Siêu phẩm 30 đề thi thử THPT quốc gia 2024 do thầy cô VietJack biên soạn, chỉ từ 100k trên Shopee Mall.

Mua ngay

Lời giải:

uses crt;

var a,b,ucln,bcnn,i:integer;

begin

clrscr;

write['Nhap a=']; readln[a];

write['Nhap b=']; readln[b];

ucln:=1;

if a