Viết chương trình Pascal cho bài toán sau:
Tìm số ước của một số N (N là một số nguyên dương được nhập vào từ bàn phím).
GIÚP MÌNH VỚI

Question

Viết chương trình Pascal cho bài toán sau:      Tìm số ước của một số N (N là một số nguyên dương được nhập vào từ bàn phím). GIÚP MÌNH VỚI

mocmien · Answer

program dem_uoc;

uses crt;

var n,i,d:integer;

begin

clrscr;

write(‘Nhap so nguyen duong n: ‘); readln(n);

d:=0;

for i:=1 to n do

if n mod i=0 then d:=d+1;

write(‘So uoc la: ‘,d);

readln;

end.

0 bình luận về “Viết chương trình Pascal cho bài toán sau: Tìm số ước của một số N (N là một số nguyên dương được nhập vào từ bàn phím). GIÚP MÌNH VỚI”