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.

3 tháng 3 2021

0 đỏi được tên

Chọn B

14 tháng 3 2023

Câu 21: Bạn Ngọc muốn in ra màn hình 5 chữ B và 5 chữ C trên màn hình bằng đoạn chương trình sau:    For i:=1 to 5 do   Writeln(‘B’); writeln(‘C’);

Theo em bạn Ngọc viết như thế nào

A. Đúng rồi

B. Phải đưa Writeln(‘B’); writeln(‘C’) vào trong cặp từ khóa Begin và End;

C.  Phải đổi Writeln thành Write.

D. Phải đặt Writeln(‘B’); writeln(‘C’); trên hai dòng riêng biệt.

#include <bits/stdc++.h>

using namespace std;

long long n,i,a[1000],t,dem,t1;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++) 

if (a[i]%2==0) cout<<a[i]<<" ";

cout<<endl;

t=0;

dem=0;

for (i=1; i<=n; i++)

if (a[i]%2==0)

{

t=t+a[i];

dem++;

}

cout<<fixed<<setprecision(2)<<(t*1.0)/(dem*1.0)<<endl;

t1=0;

for (i=1; i<=n; i++)

if (a[i]%2!=0 || a[i]%3==0) t1+=a[i];

cout<<t1;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long i,a[100],n;

int main()

{

freopen("songuyen.txt","r",stdin);

n=20;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++) cout<<a[i]<<" ";

return 0;

}

5 tháng 8 2021

Program HOC24;

var a: array[1..32000] of integer;

i,n: integer;

begin

write('Nhap so phan tu cua mang: '); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

write('Mang vua nhap: '); 

for i:=1 to n do write(a[i],' ');

writeln;

write('Cac so chan trong mang la: ');

for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');

writeln;

write('Cac so chinh phuong trong mang la: ');

for i:=1 to n do if if sqr(trunc(sqrt(a[i])))=a[i] then write(a[i],' ');

readln

end.

9 tháng 11 2023

các thiết bị vào ra cơ bản là bàn phím chuột màn micro tai nghe... 

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,nn,t;

int main()

{

cin>>n;

nn=LLONG_MAX;

t=0;

for (i=1; i<=n; i++)

{

cin>>x;

t+=x;

nn=min(nn,x);

}

cout<<nn<<" "<<t;

return 0;

}

C©u 2: Lệnh Clrscr dùng để làm gì? A. In thông tin ra màn hình. B. Tạm ngưng chương trình. C. Xoá màn hình kết quả. D. Khai báo thư viện. Câu 3: Trong Pascal khai báo hằng bằng từ khóa: A. Const B. Var C. Type D. Uses Câu 4: Câu lệnh nào sau đây dùng để nhập một số từ bàn phím vào biến x? A. Writeln(‘Nhap x = ’); B. Write(x); C. Writeln(x); D. Readln(x); C©u 5: Trong Pascal, khai b¸o nµo sau ®©y lµ ®óng cho khai b¸o biÕn? A. Var tb: real B. Var R = 30; C....
Đọc tiếp

C©u 2: Lệnh Clrscr dùng để làm gì? A. In thông tin ra màn hình. B. Tạm ngưng chương trình. C. Xoá màn hình kết quả. D. Khai báo thư viện. Câu 3: Trong Pascal khai báo hằng bằng từ khóa: A. Const B. Var C. Type D. Uses Câu 4: Câu lệnh nào sau đây dùng để nhập một số từ bàn phím vào biến x? A. Writeln(‘Nhap x = ’); B. Write(x); C. Writeln(x); D. Readln(x); C©u 5: Trong Pascal, khai b¸o nµo sau ®©y lµ ®óng cho khai b¸o biÕn? A. Var tb: real B. Var R = 30; C. Const x: real; D. Var y: integer; Câu 6: Biểu thức toán học (a+1)2 – được viết dưới dạng biểu thức trong Pascal là: A. (a+1)*a+1 – 7*a/2 B. (a+1)*(a+1) – 7*a/2 C. a+1 * a+1 – 7*a/2 D. (a+1)(a+1) – 7a/2 Câu 7: Cách gán giá trị a + b vào biến Tong là: A. Tong:a+b; B. Tong(a+b); C. Tong=a+b; D. Tong:=a+b; Câu 8: Kết quả của phép chia, phép chia lấy phần nguyên và lấy phần dư của hai số nguyên 47 và 5 là: A. 47/5 =9; 47 div 5 = 9 ; 27 mod 5 = 2 B. 47/5 =9; 47 div 5 = 9 ; 27 mod 5 = 9 C. 47/5 =9.4; 47 div 5 = 9 ; 27 mod 5 = 2 D. 47/5 =9.4; 47 div 5 = 2 ; 27 mod 5 = 9 Câu 9: Câu lệnh nào sau đây có kết quả là 3? A. 25 div 6 B. 25 div 7 C. 25 div 8 D. 25 div 9 Câu 10: Cú pháp của câu lệnh For…do là A. For = to do ; B. For := to do ; C. For := to do D. For := to do ; Câu 11: Sau khi thực hiện đoạn chương trình sau, giá trị của biến j bằng bao nhiêu? j:=0; For i:=0 to 5 do j:=j+2; A. 20 B. 12 C. 7 D. 5 Câu 12: Câu lệnh lặp For i:=3 to 10 do Begin end; vòng lặp thực hiện bao nhiêu lần a) Không lần nào; b) 7 lần; c) 8 lần; d) 10 lần. Câu 13: Câu lệnh nào sau đây được viết đúng cú pháp? A. While <điều kiện> to ; B. While < câu lệnh > do < điều kiện >; C. While <điều kiện> to do ; D. While <điều kiện> do ; Câu 14: Xác định số lần lặp trong đoạn chương trình sau: A:=5; While A<20 do A:=A+5; A. 1 B. 4 C. 5 D. vô hạn lần Câu 15: Cho đoạn chương trình: X:=10; Repeat X:=X*2; until X>25; X có giá trị là: A. 10 B. 20 C. 26 D. 40 Câu 16: Đoạn chương trình pascal sau: x:= 3 ; While x > 10 do x:=x+3; giá trị của x là: A. 3 B. 6 C. 12 D. 13 Câu 17: Hãy cho biết kết quả của đoạn chương trình A:=10; while A>=10 do write (a); A. Trên màng hình xuất hiện 1 chữ a. C. Trên màng hình xuất hiện số 10. B. Trên màng hình xuất hiện 10 chữ a. D. Chương trình lặp vô hạn lần. Câu 18: Trong các cánh khai báo biến mảng sau đây, cách khai báo nào là hợp lệ: A. Var A: array[1,100] of integer; B. Var A: array[1..100] of integer; C. Var A: array(1..100) of integer; D. Var A: array[1,,100] of integer; Câu 19: Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây sai: A. Chỉ số cuối phải nhỏ hơn hoặc bằng 100 C. Kiểu dữ liệu có thể là integer hoặc real B. Chỉ số đầu và chỉ số cuối là hai số nguyên D. Chỉ số đầu  chỉ số cuối Câu 20: Xuất dữ liệu từ mảng A có 30 phần tử từ 5 đến 15 thì ta viết lệnh như sau: A. For i:=5 to 15 do Writeln(A); C. Writeln(A[5..15]); B. For i:=5 to 15 do Writeln(A[i]); D. Writeln(A[i]); Câu 21: Biểu tượng của phần mềm Anatomy: A. B. C. D. Câu 22: Trong phần mềm Anatomy, đâu là biểu tượng của hệ thần kinh A. B. C. D. Câu 23: Hệ cơ có chức năng là: A. Giúp lưu thông máu đi khắp cơ thể để nuôi từng tế bào. B. Co, dãn để làm cho xương chuyển động C. Thải các chất độc ra bên ngoài cơ thể. D. Tiếp quản thức ăn từ miệng và tiêu hoá, hấp thụ, biến thức ăn thành năng lượng nuôi cơ thể Câu 24: Trong phần mềm Anatomy, đâu là biểu tượng của hệ tuần hoàn A. B. C. D. Câu 25: Hệ tiêu hóa có chức năng là: A. Giúp lưu thông máu đi khắp cơ thể để nuôi từng tế bào. B. Co, dãn để làm cho xương chuyển động C. Thải các chất độc ra bên ngoài cơ thể. D. Tiếp quản thức ăn từ miệng và tiêu hoá, hấp thụ, biến thức ăn thành năng lượng nuôi cơ thể

1
27 tháng 5 2021

Dài quá bạn nên đăng mỗi lần 5-> 10 câu cho dễ đọc 

uses crt;

const fi='songuyen.inp';

var f1:text;

a:array[1..100]of integer;

i,n,kt,j:integer;

begin

clrscr;

assign(f1,fi); reset(f1);

n:=0;

while not eof(f1) do 

begin

n:=n+1;

readln(f1,a[n]);

end;

for i:=1 to n do 

  if a[i]>1 then 

begin

kt:=0;

for j:=2 to trunc(sqrt(a[i])) do 

  if a[i] mod j=0 then kt:=1;

if kt=0 then write(a[i]:4);

end;

close(f1);

readln;

end.