/ 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, MIK CẦN

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, MIK CẦN”

1. program Tin_hoc;

   uses crt;

   var i,n,k:integer;

   begin

   clrscr;

   write(‘N=’);readln(n);

   k:=0;

   for i:= 1 to n do if n mod i = 0 then k:=k+1;

   writeln(‘So uoc cua ‘,n,’ la: ‘,k);

   readln;

   end.

   Bình luận

2. var i,n,d:longint;

   begin

   write(‘Nhap n: ‘); readln(n);

   for i:=1 to n do if n mod i =0 then inc(d);

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

   readln

   end.

   Bình luận