Tin học viết chương trình pascal

[anhlehoang123]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

viết chương trình pascal của số lượng ước số của 1 số nguyên dương N < 500

 

[02-07-2019.]

viết chương trình pascal của số lượng ước số của 1 số nguyên dương N < 500

[TEX] [CODE]var i:longint; n,s:int64; Begin assign(input,'dem_uoc.inp');reset(input); assign(output,'dem_uoc.out');rewrite(output); read(n); S:=2; for i:=2 to trunc (sqrt(n)) do If n mod i=0 then inc (s,2); If frac(sqrt(n))=0 then s:=s-1; Write(s); End. [/CODE] [/TEX]
Có gì không hiểu bạn cứ hỏi nhé!
Nếu bạn không dùng "assign" thì bỏ hai dòng đó đi và sau khi chạy chương trình thì nhấn " Alt+f5" cùng lúc để xem kết quả nhé!

 

[Haworthia]

Uses crt;
Var i,n,s:integer
Begin
Read(n);
For i:= 1 to n -1 do 
if n mod i = 0 then inc(s);
Write(s);
Readln;
End.