K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
14 tháng 5 2022
uses crt;
var i,n,kt:integer;
begin
clrscr;
readln(n);
kt:=0;
for i=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if (kt=0) and (n>1) then write('phai')
else write('Khong phai');
readln;
end.
KV
14 tháng 5 2022
Var i,n,souoc:integer;
Begin
While n <= 1 do
Begin
Write('Nhap n = ');readln(n);
End;
For i:=1 to n do
If n mod i = 0 then souoc:=souoc+1;
If souoc = 2 then write(n,' la so nguyen to')
Else write(n,' khong la so nguyen to');
Readln;
End.
Tham khảo
Phần chính của mọi chương trình Pascal là khối lệnh (main). Một khối lệnh bắt đầu bằng từ khoá Begin và kết thúc bằng End. Trước chương trình chính sẽ là các khai báo thư viện, biến, thủ tục, hàm,... Các câu lệnh trong Pascal được ngăn cách bằng dấu chấm phẩy (";").
trên mạng đúng hok