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
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.

Long Phùng
Xem chi tiết
Nguyễn Ngọc Lộc
6 tháng 2 2021 lúc 23:25

* Tham khảo :

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.

Hoàn Trần
Xem chi tiết
Vương Quốc Bảo
Xem chi tiết
vật lý
8 tháng 10 2021 lúc 20:10

3

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

10.B

11.C

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. 

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

NLCD
Xem chi tiết
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.

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