Viết chương trình nhập vào xâu S từ bàn phím Thực hiện các yêu cầu sau: + Kiểm tra xâu S có phải là xâu palindrom? + Đếm số ký tự số có trong xâu S. + Xuất ra xâu S2 là xâu S sau khi xóa các dấu cách (Trong đó xâu palindrom là xâu đảo ngược của nó bằng chính nó)

yenlan24062001

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 27 xem

1 trả lời

Thích Trả lời

phanthanhtien

program baigiai;

uses crt;

var S:string;

function palind(st:string):boolean;

var i:byte;

s2:string;

begin

s2:='';

for i:=length(st) downto 1 do

s2:=s2+st[i];

if s2=st then palind:=true else palind:=false;

end;

function dem(st:string):integer;

var i:byte;

begin

dem:=0;

for i:=1 to length(st) do

if st[i] in ['0'..'9'] then dem:=dem+1;

end;

function xoa(st:string):string;

begin

xoa:=st;

while pos(' ',xoa)<>0 do delete(xoa,pos(' ',xoa),1);

end;

BEGIN
clrscr;

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

if palind(s) then writeln('Xau S la xau palindrom')

else writeln('Xau S khong la xau palindrom');

writeln('Co ',dem(s),' ki tu so trong xau S');

writeln('Xau S2 la: ',xoa(s));

readln

end.

Vote (0) Phản hồi (0) 2 năm trước

lethuanan

uses crt;

var S, S1 : string; d, i : byte;

begin

clrscr;

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

d := 0;

for i := length(S) downto 1 do

begin

if S[i] in ['0' .. '9'] then d := d + 1;

S1 := S1 + S[i];

end;

if S = S1 then writeln('Xau S la xau palindrom')

else writeln('Xau S khong la xau palindrom');

writeln('Xau S co ', d ,' ki tu la chu so');

i := 1;

while i <= length(S) do

if S[i] = ' ' then begin delete(S, i, 1); i := i; end else i := i + 1;

write('Xau S2 : ', S);

readln

end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Từ thông điệp của đoạn trích phần đọc hiểu, anh/chị hãy viết một đoạn văn (khoảng 200 chữ) trình bày suy nghĩ về ý kiến: Đừng than vãn cuộc đời không công bằng, thay vào đó nhìn nhận một cách đúng đắn lời chỉ trích, phê bình của người khác.

Bản chất giai cấp công nhân của nhà nước ta được thể hiện như thế nào?

Cho các số x, y, z dương thỏa mãn x² + y² + z² = 1 Tìm giá trị nhỏ nhất của biểu thức M = 1/16x² + 1/4y² + 1/x² Tìm GTNN của biểu thức

xét dấu của f(x) sau : f(x) = -x + 5 ; f(x) = 2x + 6 ; f(x) = (3x -4 ) . (x + 7 ) help

Giúp em với ạ Em đang gấp Em cảm ơn

Giúp với , có 1 ý ngắn ( trắc nghiệm )

Lần này khó hơn xíu vẽ cô bé này đc ko các bạn của tôi

Viết một bài văn nêu suy nghĩ của em về thái độ đối với những người" chiến sĩ áo trắng nhân" trong công cuộc chống chọi Covid nhân ngày thầy thuốc Việt Nam! Không chép mạng nhé

giúp em câu số chín với ạ em cảm ơn

Giúp em với.trường đang học online mà khó quá

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến