Viết CT nhập vào 2 số M, N nguyên dương (0
Bởi

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

    • Viết một bình luận