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.

Bình luận (0)
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

Bình luận (0)
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. 

Bình luận (0)
duy nguyễn nhất
Xem chi tiết
Vô danh
17 tháng 3 2022 lúc 10:49

10.B

11.C

Bình luận (0)
Minh Lệ
Xem chi tiết
Bastkoo
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.

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

C

Bình luận (0)
Hà Sỹ Thống
25 tháng 6 2020 lúc 15:33
D nha bạn ;))
Bình luận (0)
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

Bình luận (0)
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

Bình luận (3)
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

Bình luận (0)
Đỗ Tuệ Lâm
21 tháng 2 2022 lúc 11:39

D

C

C

C

B

Bình luận (4)
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._.

Bình luận (0)
Mạnh=_=
27 tháng 3 2022 lúc 20:50

tách ra

Bình luận (0)
qlamm
27 tháng 3 2022 lúc 20:50

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

Bình luận (0)