Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
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.

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.

Trần Thị Thu Hường
Xem chi tiết
Hồ Hạ Vy
20 tháng 1 2017 lúc 20:10

       các số tự nhiên chẵn < 10000 là:

0; 2; 4; 6;...; 9998

    Số số hạng của dãy là:

  ( 9998- 0) : 2 +1 = 5000 ( số hạng)

  Tổng dãy trên là:

  ( 9998 +0) x 5000 : 2 =  24995000

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

Truc Thanh
Xem chi tiết
Đoàn Thị Linh Chi
30 tháng 9 2016 lúc 19:23

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. 

Đinh Ngọc Thảo Vy
1 tháng 10 2016 lúc 17:01

Để phóng to ( mở rộng ) chương trình Turbo Pascal ta nhấn tổ hợp phím Alt + Enter

Lê Trung Kiên
7 tháng 10 2016 lúc 22:25

nó chỉ to bằng đấy thôi, không mở rộng được đâu bạn ơi

 

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.

Hùng Lê
Xem chi tiết
Nguyễn Lê Phước Thịnh
14 tháng 4 2022 lúc 22:05

Câu 1: B

Câu 2: A

Câu 3: A

Câu 4: C

Câu 5: B

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

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

Đoàn Thị Linh Chi
Xem chi tiết
Nguyễn Mạnh Đạt
17 tháng 9 2016 lúc 17:18

Mình không dịch được chữ của bạn

Đừng Hỏi Tên Tôi
5 tháng 3 2017 lúc 8:40

dòng cuối ko cần dịch đâu