Tin học Viết chương trình tìm ước chừng lớn nhất của hai số 19/07/2021 By Anna Viết chương trình tìm ước chừng lớn nhất của hai số
var a, b: word; Begin Write(‘nhap a va b: ‘); readln(a, b); While a<>b do If a>b then a:=a-b else b:=b-a; Write(‘UCLN: ‘, a); Readln End. Trả lời
Program bai_tap; Uses crt; Var a,b: integer; Begin clrscr; write (‘Nhap a = ‘); readln(a); write (‘Nhap b = ‘); readln(b) While a <> b do if a > b then a:= a – b else b:= b – a; writeln( ‘ UCLN = ‘, a); readln End. Trả lời
var a, b: word;
Begin
Write(‘nhap a va b: ‘); readln(a, b);
While a<>b do
If a>b then a:=a-b else b:=b-a;
Write(‘UCLN: ‘, a);
Readln
End.
Program bai_tap;
Uses crt;
Var a,b: integer;
Begin
clrscr;
write (‘Nhap a = ‘); readln(a);
write (‘Nhap b = ‘); readln(b)
While a <> b do
if a > b then a:= a – b else b:= b – a;
writeln( ‘ UCLN = ‘, a);
readln
End.