Question

nhập chương trình n in ước là n một số được gọi là n khi n chia hết cho số đó.

Giúp em với em cảm ơn!

Answer 1

program Uoc;

uses crt ;

Var n, i:Integer;

begin

    clrscr;

    Write( ' Nhap n: ' ,) ; Readln(n);

    Write ( ' Uoc cua ' ,N,' la: ' );

    For i:=1 to n do

         If n mod i=0 then Write( ' i,');

    readln;

end.

Answer 2

program Uoc

uses crt

Var n , lnteger

begin :

- clrscr

- write (^' nhap n ^') 

  Readln (n)

- write (^' Uoc cua^' , N ,^' la)

- For i : = 1 to n do

lf n mod i = 0 then write (^' i^' )

readln

end