#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) and (s1[i]<=57)) cout<<s1[i];
return 0;
}
1) Viet chuong trinh nhap xau S1, tao xau S2 bao gom tat ca cac ki tu da xoa het chu so trong xau S1
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 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
điền vào chỗ trống (....) trong bang sau;
giá trị s1 giá trị s2 thao tác kết quả.
'cua me' 'em la mua xuan cua me' Insert(.....,s2,....) 'em la mua xuan cua me'
'tong so 123 em' Pos('123',s1)......
'tong so 123 em' Copy(s1.....,......); '123'
Nhanh nha.
Thanks
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. 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 các xâu
S1= ‘Pin_NLMT’
S2= ‘Pin_luthium’
S3= ‘Pin_JA_Solar’
S4= ‘Pin_Jinko_Solar’
a. So sánh các xâu sau: S1 và S4, S2 và S3
b. Thực hiện các thao tác: Insert(S1,S3,5)=?, Delete(S4,2,4)
Mọi người giúp mình với ạ!
