Những câu hỏi liên quan
Hoàn Trần
Xem chi tiết
Trần Hải Đăng
Xem chi tiết
Nguyên Khôi
12 tháng 11 2021 lúc 8:41

C

Bình luận (0)
Đan Khánh
12 tháng 11 2021 lúc 8:42

C

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

Bình luận (0)
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)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
15 tháng 3 2018 lúc 14:58

Việc đầu tiên mà câu lệnh While ... do cần thực hiện là kiểm tra điều kiện. Nếu điều kiện SAI, câu lệnh sẽ bị bỏ qua và việc thực hiện lệnh lặp kết thúc. Nếu điều kiện đúng, thực hiện câu lệnh và quay lại bước đầu.

   Đáp án: B

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

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

8. B

9.A

Bình luận (0)