Tin học cách tìm ước số , ước sô nguyên tố trong pascal của 1 số n (n nhạp từ bàn phím) 20/07/2021 By Margaret cách tìm ước số , ước sô nguyên tố trong pascal của 1 số n (n nhạp từ bàn phím)
Cách tìm ước số: uses crt;var i,n:longint;beginclrscr; write(‘N=’);readln(n); write(‘Cac uoc: ‘); for i:=1 to n do if n mod i=0 then write(i,’ ‘);readlnend. Cách tìm ước số nguyên tố: uses crt;var i,n:longint;function nt(a:longint):boolean;var i:longint;begin i:=2; while(a>1)and(a mod i<>0)do inc(i); nt:=i=a;end;beginclrscr; write(‘N=’);readln(n); write(‘Cac uoc so nguyen to: ‘); for i:=1 to n do if (n mod i=0)and(nt(i)) then write(i,’ ‘);readlnend. Trả lời
* Ước số: uses crt;var n,i:longint;beginclrscr; readln(n); for i:=1 to n do if n mod i=0 then write(i,’ ‘); writeln;readlnend. * Ước số nguyên tố: uses crt;var n,i:longint;function nt(a:longint):boolean;var i:longint;begin nt:=true; i:=2; while (a>1) and (a mod i<>0) do inc(i); if i<>a then exit(false);end;beginclrscr; readln(n); for i:=1 to n do if (n mod i=0) and (nt(i)) then write(i,’ ‘); writeln;readlnend. Trả lời