Viết CT nhập vào 2 số M, N nguyên dương (0<M<N). Hãy in ra màn hình các số là ước của 1000 từ M đến N Viết CT nhập vào 2 số M, N nguyên dương (0 < M < N). Hãy tìm ước chung lớn nhất của M và N

Bài 1: program uoc_1000; uses crt; var m,n,i:integer; begin clrscr; write('Nhap M: '); readln(m); write('Nhap N: '); readln(n); for i:=m to n do if 1000 mod i=0 then write(i,' '); readln; end. Bài 2: program uoc_chuong_lon_nhat; uses crt; var m,n:integer; begin clrscr; write('Nhap m: '); readln(m); write('Nhap n: '); readln(n); while m<>n do if m>n then m:=m-n else n:=n-m; write('UCLN = ',m); readln; end.

Tin học

Viết CT nhập vào 2 số M, N nguyên dương (0

17/07/2021

By Claire

Viết CT nhập và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 vào 2 số M, N nguyên dương (0Trả lời

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.

Trả lời

Viết một bình luận Hủy