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. 
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
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.
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.
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!
cảm ơn bạn nhiều
Câu 1
uses
crt;
var a : integer;
begin
clrscr;
write('nhap a ='); readln(a);
if a mod 2 = 0 then writeln('la so chan ') else
writeln('la so le ');
readln;
end.
1:
uses crt;
var n:integer;
begin
clrscr;
write('n='); readln(n);
if n>=0 then begin
if n mod 2=0 then writeln(n,' la so chan')
else writeln(n,' la so le');
end
else writeln('vui long nhap so tu nhien');
readln;
end.
2:
uses crt;
var d,r,cv,dt:integer;
begin
clrscr;
write('nhap chieu dai:'); readln(d);
write('nhap chieu rong:'); readln(r);
if (d>0) and (r>0) and (d>=r) then
begin
cv:=(d+r)*2;
dt:=d*r;
writeln('chu vi la: ',cv);
writeln('dien tich la: ',dt);
end
else writeln('vui long nhap lai');
readln;
end.
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.
Để phóng to ( mở rộng ) chương trình Turbo Pascal ta nhấn tổ hợp phím Alt + Enter
nó chỉ to bằng đấy thôi, không mở rộng được đâu bạn ơi
Nhấn tổ hợp phím Alt+Enter
có thể mở phóng to thu nhỏ đc mà bn
Ban le trung kien tra loi sai , phong to dc ma: alt+enter
Nhấn Alt+Enter đấy bạn ơi ,nhớ tick cho mình nhé
nhấn alt+enter bạn nhé.
chúc bạn học tốt <3