Viết CT nhập vào 2 số M, N nguyên dương (0 17/07/2021 Bởi Claire Viết CT nhập vào 2 số M, N nguyên dương (0 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Viết CT nhập vào 2 số M, N nguyên dương (0Bình luận
Câu 1: var m, n, i: word; Begin Write(‘nhap m va n: ‘); readln(m, n); For i:=m to n do if 1000 mod i=0 then write(i, ‘ ‘); Readln End. Câu 2: var m, n: word; Begin Write(‘nhap m va n: ‘); readln(m, n); While m<>n do If m>n then m:=m-n Else n:=n-m; Write(‘UCLN: ‘, m); Readln End. Bình luận
Câu 1:
var m, n, i: word;
Begin
Write(‘nhap m va n: ‘); readln(m, n);
For i:=m to n do
if 1000 mod i=0 then write(i, ‘ ‘);
Readln
End.
Câu 2:
var m, n: word;
Begin
Write(‘nhap m va n: ‘); readln(m, n);
While m<>n do
If m>n then m:=m-n
Else n:=n-m;
Write(‘UCLN: ‘, m);
Readln
End.