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.

Chọn A

18 tháng 3 2022

d

28 tháng 4 2021

Program HOC24;

var s: string;

i: byte;

begin

write('Nhap xau :'); readln(s);

for i:=1 to length(s) do if s[i]<>'a' then write(s[i]);

readln

end.

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

for i:=1 to d do 

 if st[i]='a' then delete(st,i,1);

writeln(st);

readln;

end.

1. Cho khai báo: VAR Mang1d : ARRAY[-Nmax..Nmax] OF Integer; Khai báo trên ĐÚNG trong trường hợp nào? a Nmax phải là kiểu số nguyên hoặc kiểu ký tự hoặc kiểu logic. b Mọi trường hợp. c Nmax là một hằng số nguyên đã được khai báo trước đó. d Nmax là một biến nguyên đã được khai báo trước đó. 2. Cho mảng A gồm N số nguyên. Đoạn chương trình sau thực hiện công việc gì? Dem:=0; For i:=1 TO N DO IF A[i]>=0 THEN...
Đọc tiếp

1. Cho khai báo: VAR Mang1d : ARRAY[-Nmax..Nmax] OF Integer; Khai báo trên ĐÚNG trong trường hợp nào?

a Nmax phải là kiểu số nguyên hoặc kiểu ký tự hoặc kiểu logic.

b Mọi trường hợp.

c Nmax là một hằng số nguyên đã được khai báo trước đó.

d Nmax là một biến nguyên đã được khai báo trước đó.

2. Cho mảng A gồm N số nguyên. Đoạn chương trình sau thực hiện công việc gì?

Dem:=0;

For i:=1 TO N DO

IF A[i]>=0 THEN dem:=dem+1;

Write(dem);

a Cho biết số lượng các số nguyên dương

b Cho biết số lượng các số nguyên không âm

c Tính tổng các số nguyên dương

d Kiểm tra phần tử thứ i là số âm hay dương

3. Đoạn chương trình sau thực hiện công việc gì?

St:= ‘’; {rỗng}

FOR i:=Length(S) DOWNTO 1 DO St:=S[i]+St;

a In xâu đảo của S ra màn hình c In xâu S ra màn hình

b Tạo xâu đảo của xâu S d Tạo xâu St giống hệt xâu S

4. Chọn khai báo Xâu mà không hợp lệ:

a Var S:string[200];

b Var S:string;

c Type Xau = string[300];

Var S: Xau;

d Type Xau = string[20];

Var S: Xau;

5. Cho S là biến xâu, câu lệnh sau

for i:=length(S) downto 1 do write(S[i]); thực hiện công việc:

a Đưa ra màn hình xâu S

b Đưa ra màn hình mỗi kí tự của xâu S trên một dòng

c Đưa ra màn hình xâu đảo ngược của S

d Đưa ra màn hình các chữ cái trong xâu từ chữ cái đầu tiên đến chữ cái cuối cùng

6. Cho S là biến xâu, câu lệnh sau

for i:=1 to length(S)-1 do S[i+1]:=S[i]; thực hiện công việc:

a Gán giá trị của kí tự cuối cùng cho các kí tự còn lại của xâu

b Dịch chuyển các kí tự của xâu lui một vị trí

c Dịch chuyển các kí tự của xâu lên một vị trí

d Gán giá trị của phần tử đầu tiên cho các phần tử còn lại của xâu S

7. Cho 2 xâu: S1= ‘Cuu hoc sinh Dong Khanh’; S2= ‘Dong Khanh’; Kết quả của hàm Pos (S1, S2) là:

a Pos (S1, S2) = 0. c Pos (S1, S2) = 11.

b Pos (S1, S2) = 7. d Pos (S1, S2) = 14.

8. Cho xâu s1 = 'pascal', xâu s2 có giá trị nào trong các giá trị sau để biểu thức s1< s2 nhận giá trị TRUE

a 'pascan' b 'Pascal' c 'PASCAL' d 'Pascan'

9. Cho s:= 'Hoa học trò' thì length(s) bằng bao nhiêu?

a 9 b 11 c 12 d 13

10. Cho chương trình sau:

Program BT;

var S : String;

i : byte; begin

write('Nhap xau S: ');

readln(S);

for i:= length(S) downto 1 do write(S[i]);

readln;

end.

Chương trình trên thực hiện công việc gì ?

a Nhập một xâu từ bàn phím và đưa ra màn hình xâu đó nhưng viết theo thứ tự ngược lại.

b Nhập một xâu từ bàn phím và đưa ra màn hình xâu đó nhưng viết theo thứ tự ngược lại và độ dài xâu đó.

c Nhập một xâu từ bàn phím và đưa ra màn hình độ dài xâu đó.

d Nhập một xâu từ bàn phím và đưa ra màn hình xâu đó.

0
15 tháng 11 2017

hình như ct bạn viết sai a

12 tháng 10 2019

chương trình sai rồi nhé bạn

Câu 1: A

Câu 2: Không có câu nào đúng

17 tháng 5 2021

sữa i bằng b đi bạn ơi