K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

2b:

- đầu tiên nhập một số n bất kỳ

- sau đó chúng ta cho for chạy từ 1 tới số nguyên vừa nhập

- nếu số n vừa nhập chia hết cho số i trong for thì viết số i đó ra màn hình

2c:

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

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

readln;

end.

23 tháng 10 2022

2b:

- đầu tiên nhập một số n bất kỳ

- sau đó chúng ta cho for chạy từ 1 tới số nguyên vừa nhập

- nếu số n vừa nhập chia hết cho số i trong for thì viết số i đó ra màn hình

2c:

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

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

readln;

end.

16 tháng 5 2022

Câu lệnh điều kiện:

Dạng thiếu:

If < điều kiện > then < câu lệnh >;

Dạng đầy đủ:

If < điều kiện > then < câu lệnh 1 > else < câu lệnh 2 >;

Lệnh lặp:

Biết trước:

For< Biến đếm > := < Giá trị đầu > to< Giá trị cuối > do < Câu lệnh >;

Chưa biết trước:

while < điều kiện > do < câu lệnh >;

Công thức đọc tên là gì mình ko hiểu @@

Câu 4 đưa ra hình điểm của từ người hs là sao mình ko hiểu nên mình cứ cho là in ra toàn bộ điểm từng người hs nhé, có gì bạn xem xét lại xóa khúc đó:

Bài 4 nữa nhưng muốn nhập nhiêu hs thì tùy(tối đa 100, muốn hơn nữa sữa lệnh khai báo mãng) Khiến khích nên dùng bài này vì nó tiện á:

16 tháng 5 2022

10 tháng 4 2021

*Cú pháp: While <điều kiện> do <câu lệnh>;
*Trong đó

While, do: là các từ khóaĐiều kiện: thường là một phép so sánhCâu lệnh: có thể là câu lệnh đơn giản hay câu lệnh ghé
*Câu lệnh này được thực hiện như sau:
- Bước 1: Kiểm tra điều kiện.
- Bước 2: 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 1
*Sơ đồ hoạt động:undefined
 

Cú pháp: While <điều kiện> do <câu lệnh>;

Trong đó:

While, do là các từ khóa

Điều kiện thường là một phép so sánh

Câu lệnh có thể là một câu lệnh đơn hoặc một câu lệnh ghép

2 tháng 5 2023

for i:= 1 to n do
begin
  
end;

*Note: i là biến đếm đc khởi tạo với giá trị bắt đầu là 1. Vòng lặp sẽ thực hiện các câu lệnh bên trong begin và end với giá trị của i tăng lên 1 mỗi lần lặp cho đến khi i đạt giá trị n. Sau đó, các câu lệnh bên ngoài vòng lặp sẽ được thực hiện tiếp.

VD: nếu ta muốn in ra một dãy số từ 1 đến 10, ta có thể sử dụng câu lệnh lặp với số lần biết trước như sau:

for i:= 1 to 10 do
begin
  writeln(i);
end;

kết quả sẽ ra từ 1 đến 10

 

Cú pháp của câu lệnh điều kiện:

if <điều kiện> do <câu lệnh 1>

else <câu lệnh 2>;

Cú pháp của câu lệnh lặp với số lần chưa biết trước:

While <điều kiện> do 

<câu lệnh>;

Câu 1: Khi thực hiện câu lệnh lặp for,to, do máy tính kiểm tra một điều kiện, điều kiện cần phải kiểm tra là gì?Câu 2: Em hãy mô tả thuật toán và viết chương trình nhập vào một số tự nhiên n khác 0. Tìm tất cả các ước của n.Câu 3: Em hãy mô tả thuật toán và viết chương trình nhập vào một số tự nhiên n khác 0. Đếm tất cả các ước của n.Câu 4: Em hãy mô tả thuật toán và viết chương trình nhập vào một số...
Đọc tiếp

Câu 1: Khi thực hiện câu lệnh lặp for,to, do máy tính kiểm tra một điều kiện, điều kiện cần phải kiểm tra là gì?

Câu 2: Em hãy mô tả thuật toán và viết chương trình nhập vào một số tự nhiên n khác 0. Tìm tất cả các ước của n.

Câu 3: Em hãy mô tả thuật toán và viết chương trình nhập vào một số tự nhiên n khác 0. Đếm tất cả các ước của n.

Câu 4: Em hãy mô tả thuật toán và viết chương trình nhập vào một số tự nhiên n khác 0. Tính tổng tất cả các nước của n.

Câu 5: Em hãy mô tả thuật toán và viết chương trình nhập vào một số tự nhiên n khác 0. Tính tích tất cả các ước của n.

Câu 6: Em hãy mô tả thuật toán và viết chương trình nhập vào một số tự nhiên n khác 0. Tính tổng các số chẵn trong đoạn 1 đến n.

Câu 7: Em hãy mô tả thuật toán và viết chương trình nhập vào hai số tự nhiên a và b (a <> 0; b <> 0; a <= 0)

Câu 8: Em hãy mô tả thuật toán và viết chương trình nhập vào một số tự nhiên n khác 0. Kiểm tra xem n có là số nguyên tố hay không?

làm hộ mình nha hehe

1

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ước 1: Nhập n và nhập dãy số

Bước 2: tb←0; i←1;

Bước 3: tb←tb+x[i];

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3 và bước 4

Bước 6: Xuất tb/n;

Bước 7: Kết thúc 

23 tháng 3 2023

Cú pháp: while <điều kiện> do <câu lệnh>;

Qúa trình thực hiện: Vòng lặp thực hiện các câu lệnh khi điều kiện của vòng lặp là điều kiện đúng, và dừng lại khi điều kiện vòng lặp là điều kiện sai