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.
23 tháng 3 2022
1 là bn sửa hình nền
2 là mk gọi admin hoặc giáo viên khác khoá nick bn
TT
6
30 tháng 9 2016
Truc Thanh chương trình Turbo Pascal pn tải về máy tính của pn r thì không mở rộng đk đâu.
1 tháng 10 2016
Để phóng to ( mở rộng ) chương trình Turbo Pascal ta nhấn tổ hợp phím Alt + Enter
c. 
HH
1
NH
1
KT
14 tháng 4 2017
program vietchuongtrinh;
uses crt;
begin
clrscr;
writeln('Hello');
writeln('"Toi la Turbo Pascal"');
readln;
end.
Trả lời:
Khởi động Turbo Pascal bằng một trong hai cách:
Cách 1: Nháy đúp chuột vào biểu tượng Turbo Pascal trên màn hình.
Cách 2: Nháy đúp chuột vào tên tệp Turbo.exe trong thư mục chứa tệp này (thường là thu mục con TB/BIN).
Chúc bạn học tốt!