Tin học viet chuong trinh nhap vao 1 so N tu ban phim va kiem tra xem so do co phai la so nguyen to khong 16/07/2021 By Adalyn viet chuong trinh nhap vao 1 so N tu ban phim va kiem tra xem so do co phai la so nguyen to khong
uses crt;var i,N,dem:byte;beginWrite(‘Nhap N :’);Readln(N);for i:=1 to N doif N mod i=0 then dem:=dem+1;if dem=2 then Write(N,’ la so nguyen to’)else Write(N,’khong phai la so nguyen to’);ReadlnEnd. Trả lời
progra nguyen_to; uses crt; var n,i,d:integer; begin clrscr; write(‘Nhap N: ‘); readln(n); if n<2 then write(n,’ khong phai so nguyen to’) else begin d:=0; for i:=1 to n do if n mod i=0 then d:=d+1; if d=2 then write(n,’ la so nguyen to’) else write(n,’ khong phai so nguyen to’); end; readln; end. Trả lời