Question

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…

Answer 1

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.