Câu 1: Khai báo mảng gồm 100 phần tử Câu 2: Nếu vòng lặp for...do in ra màn hình các số 1 2 3...19 20 Câu 3: Vòng lặp sau cho kết quả là bao nhiêu? S=1; for i:=1 to 4 do S:=S*2; Câu 4: Nêu 3 ví dụ về: a/Vòng lặp chưa biết trước số lần lặp b/Vòng lặp biết trước số lần lặp
Những câu hỏi liên quan
Bài tập 3. Nhập vào một mảng số nguyên và in ra các phần tử là số nguyên tố có trong mảng.
- Viết các lệnh:
+ Nhập, Xuất dữ liệu
+ Khai báo biến
+ Câu lệnh điều kiện
+ Vòng lặp For.. do, While.. do
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i;
//chuongtrinhcon
bool ktnt(long long x)
{
if (x<=1) return(false);
for (int i=2; i*i<=x; i++)
if (x%i==0) return(false);
return(true);
}
//chuongtrinhchinh
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) if (ktnt(a[i])==true) cout<<a[i]<<" ";
return 0;
}
Đúng 0
Bình luận (0)
For i:=1 to 6 do write(i:3);
a) Số vòng lặp trong câu lệnh trên là bao nhiêu?
b) Kết thúc vòng lặp giá trị của i là bao nhiêu?
c) Cho biết kết quả của câu lệnh trên?
a: Có 6 vòng lặp
b: i=6
c: Kết quả là in ra các số từ 1 đến 6, giữa hai số có 3 dấu cách
Đúng 1
Bình luận (0)
Câu 2 : Cho vòng lặp:S:0;For i:1 to 20 doS:s + i/2;Hãy biến đổi vòng lặp trên 1 thành vòng lặp while…do
Đọc tiếp
Câu 2 : Cho vòng lặp:
S:=0;
For i:=1 to 20 do
S:=s + i/2;
Hãy biến đổi vòng lặp trên 1 thành vòng lặp while…do
1.cho đoạn ct sau: Tong:30; while tong10 do tong:tong-2;khi kết thúc vòng lặp giá trị của biến tổng là ao nhiêu2. khai báo biến mảng: Var A:array[1..10] of real;sử dụng câu lệnh For i:1 to 5 do readln(a[i]); để gán giá trị cho các phần tử trong biến mảng A từ bàn phím, ta sẽ nhập được bao nhiêu giá trị?
Đọc tiếp
1.cho đoạn ct sau:
Tong:=30; while tong>10 do tong:=tong-2;
khi kết thúc vòng lặp giá trị của biến tổng là ao nhiêu
2. khai báo biến mảng: Var A:array[1..10] of real;
sử dụng câu lệnh For i:=1 to 5 do readln(a[i]); để gán giá trị cho các phần tử trong biến mảng A từ bàn phím, ta sẽ nhập được bao nhiêu giá trị?
Câu 2:
Ta sẽ nhập được 5 giá trị
Đúng 0
Bình luận (0)
Câu 2 : Cho vòng lặp:S:0;For i:1 to 20 doS:s + i/2;Hãy biến đổi vòng lặp trên 1 thành vòng lặp while…do mình đang cần gấp ạ
Đọc tiếp
Câu 2 : Cho vòng lặp:
S:=0;
For i:=1 to 20 do
S:=s + i/2;
Hãy biến đổi vòng lặp trên 1 thành vòng lặp while…do
mình đang cần gấp ạ
Chuyển thành while..do
s:=0; i:=1;
while i<=n do
begin
s:=s+i/2;
i:=i+1;
end;
Đúng 0
Bình luận (0)
Giả sử mảng a gồm các phần tử a[1]1, a[2]2, a[3]3, a[4]4, a[5]5.Xét đoạn chương trình sau:S : 0; For i :1 to 5 do If a[i] mod 2 1 then S : S+a[i];Write(S);Kết quả hiện ra màn hình là: A. 9 B. S6 C. 6 D. S9
Đọc tiếp
Giả sử mảng a gồm các phần tử a[1]=1, a[2]=2, a[3]=3, a[4]=4, a[5]=5.
Xét đoạn chương trình sau:
S := 0;
For i :=1 to 5 do
If a[i] mod 2 = 1 then S := S+a[i];
Write(S);
Kết quả hiện ra màn hình là:
A. 9
B. S=6
C. 6
D. S=9
câu 6: dùng vòng lặp for...do hoặc while...do viết chương trình tính và in ra tổng sau: s=1+1/2+1/3+....+1/50
var s, i: real;
begin
s := 0;
for i := 1 to 50 do
s := s + 1/i;
writeln('Tong s = ', s:0:2);
end.
Đúng 2
Bình luận (1)
while..do
Program HOC24;
var i: integer;
s: real;
begin
i:=1;
while i<=50 do
begin
s:=s+i;
i:=i+1;
end;
write('S = ',s:6:2);
readln
end.
Đúng 1
Bình luận (0)
câu 6: dùng vòng lặp for...do hoặc while...do viết chương trình tính và in ra tổng sau: s=1+1/2+1/3+....+1/50
giải giúp em ạ
Var i:integer;
s:real;
Begin
For i:=1 to 50 do
s:=s + 1/i;
Write('Tong la ',s:10:2);
Readln;
End.
Đúng 1
Bình luận (0)
Giả sử mảng a gồm các phần tử a[1]1, a[2]2, a[3]3, a[4]4, a[5]5.Xét đoạn chương trình sau:S : 0;For i : 1 to 5 do If a[i] mod 2 0 then S : S+a[i];Write(S);Kết quả hiện ra màn hình là: A. S6 B. 6 C. 9 D. S9
Đọc tiếp
Giả sử mảng a gồm các phần tử a[1]=1, a[2]=2, a[3]=3, a[4]=4, a[5]=5.
Xét đoạn chương trình sau:
S := 0;
For i := 1 to 5 do
If a[i] mod 2 = 0 then S := S+a[i];
Write(S);
Kết quả hiện ra màn hình là:
A. S=6
B. 6
C. 9
D. S=9