Viết chương trình nhập số nguyên n. Hãy đếm xem n có bao nhiêu ước khác 1 và chính nó.
GIÚP EM VỚI Ạ!!!
Viết chương trình nhập số nguyên n. Hãy đếm xem n có bao nhiêu ước khác 1 và chính nó. GIÚP EM VỚI Ạ!!!
By Sarah
By Sarah
Viết chương trình nhập số nguyên n. Hãy đếm xem n có bao nhiêu ước khác 1 và chính nó.
GIÚP EM VỚI Ạ!!!
var n,kq,i: integer;
begin
write(‘Nhap so nguyen n: ‘);
readln(n);
for i:=2 to n-1 do
if (n mod i = 0) then inc(kq);
writeln(‘Co tat ca ‘,kq,’ so la uoc cua ‘,n);
readln
end.
program phuongt;
uses crt;
var n, i, d: integer;
begin
clrscr;
write(‘Nhap n = ‘); readln(n);
d:=0;
for i:=1 to n do if n mod 2 = 0 then d:=d+1;
write(‘So uoc cua ‘, n, ‘ tru 1 va chinh no la: ‘, d-2);
readln
end.