#include <bits/stdc++.h>
using namespace std;
string s1;
int d,i;
int main()
{
getline(cin,s1);
d=s1.length();
for (i=0; i<=d-1; i++)
if ((s1[i]<48) or (s1[i]>57)) cout<<s1[i];
return 0;
}
1) Viet chuong trinh nhap xau S1, tao xau S2 gom tat ca cac chu so cua xau S1
1) Cho xau ki tu sau: s:= 'Nguyen Trai'. Lenh nao sau day cho ket qua 'Trai'
A. copy(s, 8, 4); B. delete(s, 1, 7); C. Ca A, B deu dung D. Ca A, B deu sai
1) Xau rong la xau co do dai bang:
A. 1 B.0 C.3 D.4
1) Cho doan chuong trinh sau:
s1:= '123' ; s2:= 'abc'
insert(s1, s2, 2);
write(s1);
Ket qua in ra man hinh la:
A. 'a123bc' B.'1abc23' C.'123' D. 'abc123'
1) Cho doan chuong trinh sau:
s1:= '1234' s2:='abc'
If length(s1) < length(s2) then writeln(s1) else writeln(s2);
Ket qua in ra man hinh la:
A. '1234' B. 'abc' C. '1234abc' D. 'abc1234'
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 đó.
Cho xâu S1=‘Ha Noi ’; xâu S2 =‘Viet Nam’.
Kết quả của thủ tục Insert(s1,s2,6) là:
A. ‘Viet Ha Noi Nam’ B. ‘Viet Ha NoiNam’
C. ‘VietHa Noi Nam’ D. ‘VietHa NoiNam’
1.Viết hàm cho biết xâu S1 có xuất hiện trong xâu S2 không?
2.Viết hàm chèn câu S1 vào S2 từ vị trí thứ 6?
3. Đếm xem có bao nhiêu kí tự là chữ số trong xâu S2
(Mọi người ơi giúp mình với ạ, mai mình thì rồi)
nhập vào xâu s1= tin hoc may tinh may tinh ,s2=may. đếm số lượng xâu s2 xuất hiện bao nhiêu lần trong xâu s1
