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.

Câu 1: khi thực hiện đoạn chương trình sau: n:=1; T:=50;While n > 20 do begin n:=n+5; T:= T – n end;Hãy cho biết giá trị của biến T bằng bao nhiêu?Câu 2:a)    Trong câu lệnh khai báo biến mảng,phát biểu nào sau đây là đúngA.    Chỉ số đầu và chỉ số cuối là 2 số nguyênB.    Chỉ số đầu chỉ số cuốiC.    Kiểu dữ liệu có thể là integer hoặc realD.   Cả 3 ý trênb)    Trong cú pháp khai báo biến mảng,chỉ số đầu và chỉ số...
Đọc tiếp

Câu 1: khi thực hiện đoạn chương trình sau: n:=1; T:=50;

While n > 20 do begin n:=n+5; T:= T – n end;

Hãy cho biết giá trị của biến T bằng bao nhiêu?

Câu 2:

a)    Trong câu lệnh khai báo biến mảng,phát biểu nào sau đây là đúng

A.    Chỉ số đầu và chỉ số cuối là 2 số nguyên

B.    Chỉ số đầu chỉ số cuối

C.    Kiểu dữ liệu có thể là integer hoặc real

D.   Cả 3 ý trên

b)    Trong cú pháp khai báo biến mảng,chỉ số đầu và chỉ số cuối là hai số

A.    Số nguyên

B.    Số thực

C.    Kí tự

D.   Xâu kí tự

Câu 3:

a)    Các câu lệnh Pascal nào sau đây hợp lệ

A.    For i:=100 to 1 do writeln(‘A’);

B.    For i:=1.5 to 10.5 do writeln (‘A’);

C.    For i:=1 to 10 do;writeln(‘A’);

D.   For i:=1 to 10 do writeln(‘A’);

b)    Cú pháp câu lệnh lặp nào sau đây là đúng

A.    For <biến đếm>:=<giá trị cuối> down to <giá trị đầu> do <câu lệnh>;

B.    For <biến đếm>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

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

D.   For <biến đếm>:= < giá trị đầu> to <giá trị cuối> do <câu lệnh>;

Câu 4:

a)    Kết quả của điều kiện trong câu lệnh While … do có giá trị là:

A.    Số nguyên

B.    Số thực

C.    Dãy kí tự

D.   Đúng hoặc sai

b)    Hãy cho biết kết quả của đoạn chương trình dưới đây

A:=10;

White a>=10 do write(A);

A.    Trên màn hình xuất hiện một chữ a;

B.    Trên màn hình xuất hiện 10 chữ a;

C.    Trên màn hình xuất hiện một số 10;

D.   Chương trình bị lặp vô tận

Câu 5: vòng lặp sau cho kết quả S bằng bao nhiêu

S:= 1; For i:= 1 to 3 do S:= S * 5;

A.    S = 5

B.    S = 25

C.    S = 100

D.   S = 125

1

Câu 4: 

a: D

b: D

Câu 5: D

Câu 3: 

a: D

b: B,A

uses crt;

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

i,n,t:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=0;

for i:=1 to n do 

t:=t+a[i];

writeln(t);

readln;

end.

a: 

#include <bits/stdc++.h>

using namespace std;

double a[1000];

int n,i;

int main()

{

cin>>n;

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

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

return 0;

}

b: 

#include <bits/stdc++.h>

using namespace std;

long long a[50],n,i,t;

int main()

{

cin>>n;

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

t=0;

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

cout<<t;

return 0;

}

30 tháng 4 2022

bạn có thể nào làm cho mình phần b làm theo kiểu lớp 8 đc không chứ nhìn như này mik ko hiểu

 

 

 

 

 

a: 

#include <bits/stdc++.h>

using namespace std;

double a[1000];

int n,i;

int main()

{

cin>>n;

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

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

return 0;

}

b: 

#include <bits/stdc++.h>

using namespace std;

long long a[50],n,i,t;

int main()

{

cin>>n;

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

t=0;

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

cout<<t;

return 0;

}

a: Sai bởi chỉ số đầu lớn hơn chỉ số cuối

b: Sai vì chỉ số đầu, chỉ số cuối là số thực

c: Sai vì chỗ end thiếu chấm phẩy

d: Sai vì chỉ số đầu lớn hơn chỉ số cuối

e: Sai vì chỉ số đầu và chỉ số cuối là số thực

d: Đúng

30 tháng 4 2022

cảm ơn bạn nhayeu

 

30 tháng 4 2022

Var a:array[1..200] of integer;

i,n,max:integer;

Begin

Write('Nhap n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

End;

Max:=a[1];

For i:=2 to n do

If a[i]>max then max:=a[i];

Write('Phan tu lon nhat la ',max);

Readln;

End.

Câu 1: B
Câu 2: A

Câu 3: C

Câu 4: A

Câu 5: D

Câu 6: B

Câu 7: C

30 tháng 4 2022

Program tinh_tich;

uses crt;

var i,n: integer;

      S:longint;

Begin

clrscr;

write('Nhap n:'); readln(n);

S:=1;

for i:=1 to n do S:= S*i;

writeln('Tich cua S la:',S);

readln;

end.

30 tháng 4 2022

Hình bạn chụp nhỏ quá, bạn có thể gõ ra hoặc zoom màn hình lên để mn cùng giải đáp nhé.

Câu 1: 

uses crt;

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

i,n:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

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

readln;

end.