cho xâu x được nhập vào bàn phím hãy viết chương trình để nhập xâu x
Những câu hỏi liên quan
Viết chương trình nhập vào một xâu ký tự S từ bàn phím. Xuất xâu đã nhập. Tạo xâu đảo ngược P từ xâu đã nhập. Xuất xâu P ra màn hình
Use crt;
Var S : String;
P: longint;
Begin
Write('Nhap s: '); readln (S);
For P:=length(S) downto 1 do
Write(P);
Readln;
End.
Đúng 2
Bình luận (0)
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
writeln('Xau ban vua nhap la: ',st);
writeln('Xau nguoc la: ');
for i:=d downto 1 do
write(st[i]:4);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình: Xâu A được nhập từ bàn phím . a) Viết xâu vừa nhập ra màn hình . b)tạo xâu B chứa các ký tự của xâu A
program NhapXau;
var
Chuoi_A, Chuoi_B : string;
i : integer;
begin
write('Nhap xau A: ');
readln(Chuoi_A);
writeln('Xau A la: ', Chuoi_A);
Chuoi_B := ''
for i := 1 to length(Chuoi_A) do
Chuoi_B := Chuoi_B + Chuoi_A[i];
writeln('Xau B la: ', Chuoi_B);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào một xâu S có độ dài không quá 100 ký tự từ bàn phím. Hãy cho biết có bao nhiêu chữ số xuất hiện trong xâu S. Thông báo kết quả ra màn hình. Xuất xâu đã nhập
Chương trình:
program bai_10_chuong_4;
uses crt;
var
s: string[100];
i, dem: integer;
Begin
clrscr;
write('Nhap xau vao:'); readln(s); dem:= 0;
for i:= 1 to length(s) do
if ('0'<=s[i]) and(s[i]<=’9') then dem:=dem+l;
Writeln('Trong xau s co '»dem,' chu so thap phan');
readln;
End.
Đúng 2
Bình luận (0)
uses crt;
var st:string;
i,d,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
writeln('Xau vua nhap la: ',st);
dem:=0;
for i:=1 to d do
if st[i] in ['0'..'9'] then inc(dem);
writeln(dem);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào từ bàn phím một xâu kí tự. In ra màn hình xâu gồm tất cả các kí tự chữ số lấy từ xâu đã nhập
Var s,st:string;
i:integer;
Begin
Write('Nhap xau ');readln(s);
For i:=1 to length(s) do
If s[i] in ['0'..'9'] then st:=st+s[i];
Write('Cac ki tu so co trong day la ',st);
Readln
End.
Đúng 1
Bình luận (0)
viết chương trình nhập 1 xâu từ bàn phím, hãy in ra xâu đó nếu chứa kí tự 'a'
giúp em với sáng mai em thi rồi..1.viết chương trình nhập vào một xâu kí tự từ bàn phím. in ra màn hình xâu kí tự sau khi đã thay các từ nang thành mua.2. viết chương trình vào một xâu kí tự từ bàn phím .kiểm tra xem xâu đó có phải là xâu palindrom không? ( Xâu palindrom là xâu khi viết từ trái qua phải cũng giống như từ phải qua trái, VD: Xâu ABBA là một xâu palindrom).giúp em với ạ em rất cần gấp
Đọc tiếp
giúp em với sáng mai em thi rồi..
1.viết chương trình nhập vào một xâu kí tự từ bàn phím. in ra màn hình xâu kí tự sau khi đã thay các từ "nang" thành "mua".
2. viết chương trình vào một xâu kí tự từ bàn phím .kiểm tra xem xâu đó có phải là xâu palindrom không? ( Xâu palindrom là xâu khi viết từ trái qua phải cũng giống như từ phải qua trái, VD: Xâu 'ABBA' là một xâu palindrom).
giúp em với ạ em rất cần gấp
Bài 1:
uses crt;
var S:String;
vt:integer;
begin
clrscr;
Write(‘Nhap 1 xau:’); Readln(S);
While pos(‘nang’,s)>0 do
Begin
Vt:= pos(‘nang’,s);
Delete(s,vt,4);
Insert(‘mua’,s ,vt);
End;
Writeln(‘Xau sau khi thay the ’,s);
Readln;
End.
Đúng 2
Bình luận (0)
Bài 2:
uses crt;
var st:string;
d,i,kt:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
kt:=0;
for i:=1 to d do
if st[i]<>st[d-i+1] then kt:=1;
if kt=0 then writeln(st,' la xau doi xung')
else writeln(st,' khong la xau doi xung');
readln;
end.
Đúng 2
Bình luận (0)
Viết chương trình nhập vào 1 xâu từ bàn phím. Đếm số lượng kí tự cách có trong xâu
uses crt;
var st:string;
dem,i,d:integer;
begin
clrscr;
readln(st);
dem:=0;
d:=length(st);
for i:=1 to d do
if st[i]=' ' then inc(dem);
write(dem);
readln;
end.
Đúng 0
Bình luận (0)
cho xâu x nhập vào bàn phím haỹ viêts phương trình để
1. nhập xâu x
2.đưa ra độ dài của xâu và nhập
uses crt;
var x:string;
begin
clrscr;
write('x='); readln(x);
writeln(length(x));
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào từ bàn phím 1 xâu S. Xuất ra màn hình: -Xâu S vừa nhập -Cho biết xâu đó có độ dài là bao nhiêu -Trong xâu có bao nhiêu kí tự là khoảng trắng -Trong xâu có bao nhiêu từ