Những câu hỏi liên quan
Nguyễn Lê Phước Thịnh
Xem chi tiết
Trương Minh Hiếu
Xem chi tiết
Keiko Hashitou
23 tháng 3 2022 lúc 8:30

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

Bình luận (1)
Bbi thành real
Xem chi tiết
Nguyễn Lê Phước Thịnh
14 tháng 5 2022 lúc 10:53

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.

Bình luận (0)
Kiều Vũ Linh
14 tháng 5 2022 lúc 13:26

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.

Bình luận (0)
Ng Ph Nhung
Xem chi tiết
Minh Lệ
25 tháng 2 2023 lúc 22:29

Vẫn sử dụng được nhưng là những phím tắt khác so với Word,... bạn nhé.

Ví dụ: 

Nhấn nút [HOME] -> chuyển con nháy về đầu dòng

Nhấn nút [END] -> chuyển con nháy về đầu dòng

Nhấn tổ hợp Ctrl + Y -> xóa 1 hàng trên FreePascal

Bình luận (0)
johnny
Xem chi tiết
Nguyễn Lê Phước Thịnh
31 tháng 12 2021 lúc 11:31

Câu 2: A

Bình luận (0)
Hoàng Hải Yến
Xem chi tiết
tao quen roi
15 tháng 10 2016 lúc 17:35

writeln / write = ra

read =vao

Bình luận (2)
Tuấn Anh vu
Xem chi tiết
Minh Lệ
16 tháng 3 2023 lúc 22:50

Program HOC24;

var S,n: integer;

begin

s:=1; n:=0;

while s<10 do

begin

n:=n+2;

s:=s+n;

end;

write('S= ' ,s);

readln

end.

Bình luận (0)
Khang Dương
Xem chi tiết
aloooooooo
Xem chi tiết
Minh Lệ
19 tháng 2 2023 lúc 23:07

Program HOC24;

var i,n,d: integer;

begin

write('Nhap N: '); readln(n);

write('Cac uoc cua 'n,' la: ');

for i:=1 to n do if i mod n = 0 do then

begin write(i,' '); d:=d+1; end;

writeln;

write('Co ',d,' so la uoc cua ',n);

readln

end.

Bình luận (0)