Viết chương trình nhập số tự nhiên N từ bàn phím.Kiểm tra từ 1 đến N có bao nhiu số là ước số của N và in các ước số ra màn hình.
Ai giúp mình vs ạ lm ơn:((
Viết chương trình nhập số tự nhiên N từ bàn phím.Kiểm tra từ 1 đến N có bao nhiu số là ước số của N và in các ước số ra màn hình. Ai giúp mình vs ạ lm
By Hadley
program dem_in_uoc;
uses crt;
var n,i,d:integer;
begin
clrscr;
write(‘Nhap N: ‘); readln(n);
for i:=1 to n do
if n mod i=0 then
begin
write(i,’ ‘);
d:=d+1;
end;
write(‘=> Co ‘,d,’ uoc’);
readln;
end.
Uses crt;
Var i,n,d: integer;
Begin
Clrscr;
Write (‘Nhap N: ‘); readln (n);
Write (‘Cac uoc cua n tu 1 den n la: ‘);
For i:=1 to n do if n mod i=0 then
begin d:=d+1; write (i,’ ‘); end;
Writeln;
Writeln (‘Tu 1 den n co ‘,d,’ uoc so cua n’);
Readln;
End.
XIN HAY NHẤT