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
Trần trung hiếu
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 2 2021 lúc 13:48

P/s: ở đây mình chỉ viết chương trình thôi, còn thuật toán bạn có thể suy ra từ chương trình nhé:

Câu 2: 

uses crt;

var n,i:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  if n mod i=0 then write(i:4);

readln;

end.

Câu 3: 

uses crt;

var n,i,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

dem:=0;

for i:=1 to n do 

  if n mod i=0 then dem:=dem+1;

writeln('So uoc cua ',n,' la: ',dem);

readln;

end.

Câu 4: 

uses crt;

var n,i,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

t:=0;

for i:=1 to n do 

  if n mod i=0 then t:=t+i;

writeln('Tong cac uoc cua ',n,' la: ',t);

readln;

end.

Câu 5: 

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

write('Nhap n='); readln(n);

s:=1;

for i:=1 to n do 

  if n mod i=0 then s:=s*i;

writeln('Tich cac uoc cua ',n,' la: ',s:4:2);

readln;

end.

Câu 6: 

uses crt;

var n,i,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

t:=0;

for i:=1 to n do 

  if i mod 2=0 then t:=t+i;

writeln('Tong cac so chan trong khoang tu 1 den ',n,' la: ',t);

readln;

end.

Câu 8: 

uses crt;

var n,i,kt:integer;

begin

clrscr;

write('Nhap n='); 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 writeln(n,' la so nguyen to')

else writeln(n,' khong la so nguyen to');

readln;

end.

Sách Giáo Khoa
Xem chi tiết
Hồ Lê Phương Nam
6 tháng 5 2018 lúc 17:20

- Biến đếm, giá trị đầu, giá trị cuối là kiểu số nguyên

- Giá trị cuối lớn hơn hoặc bằng giá trị đầu

Minh Hoàng
1 tháng 2 2021 lúc 21:17

Khi thực hiện, ban đầu biến đếm sẽ nhận giá trị đầu, sau mỗi vòng lặp, biến đếm sẽ tự động tăng thêm một đơn vị cho đến khi bằng giá trị cuối. 

duy nguyễn nhất
Xem chi tiết
Vô danh
17 tháng 3 2022 lúc 10:49

10.B

11.C

Minh Lệ
Xem chi tiết
datcoder
14 tháng 10 2023 lúc 20:28

Chọn D. Lặp với điều kiện được kiểm tra sau khi thực hiện khối lệnh.

Chicken King
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 6 2020 lúc 13:46

C

Hà Sỹ Thống
25 tháng 6 2020 lúc 15:33
D nha bạn ;))
HGFDAsS
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 4 2022 lúc 7:19

Câu 1: A

Câu 2: B

Câu 3: C

Câu 4: B

Hoàn Trần
Xem chi tiết
lạc lõng giữa dòng đời t...
Xem chi tiết
Linh Nguyễn
21 tháng 2 2022 lúc 11:38

1.A
2.B
3.C
4.A
5.A

Nguyễn Lê Phước Thịnh
21 tháng 2 2022 lúc 11:39

Câu 1: A
Câu 2: B

Câu 3: C

Câu 4: A

Câu 5: A

Đỗ Tuệ Lâm
21 tháng 2 2022 lúc 11:39

D

C

C

C

B

cute pho mai que
Xem chi tiết
☞Tᖇì  ᑎGâᗰ ☜
27 tháng 3 2022 lúc 20:49

Cắt bớt ra cậu oy._.

Mạnh=_=
27 tháng 3 2022 lúc 20:50

tách ra

qlamm
27 tháng 3 2022 lúc 20:50

tách bớt cho dễ lm đi ạ