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 Ạ!!! 20/07/2021 Bởi 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); readlnend. Bình luận
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); readlnend. Bình luận
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.