pascal mối quan tâm Chào tôi là thành viên mới của "TTVNONLINE" , program chuong_trinh_pascal; {kiem tra xen N co phai la so nguyen to khong? Voi N nhap tu ban phim} uses crt; var : n,i:interger; begin clrscr; writeln('N=');readln(N); I:=2; while N mod i<>0 do i:=inc(i); if N=i then writeln(N,'la so nguyen to') else writeln(N,'khong la so nguyen to') readln; end. có cách nào khác mong hãy gửi cho tôi theo địa chỉ: tt07@vol.vnn.vn tt07
chào bạn ,bạn có thể vào trang diễn đàn tin học đẻ hỏi http://www.ttvnonline.com/forum/default.asp?group=8 .đây là bõ xứ nghệ nếu bạn là người nghệ an hà tĩnh hay đăng kí thanh viên ở mục dành cho thanh viên mới đăng kí. cảm ơn hongbach[/size=4/]
