làm ơn giúp mình với mọi người ơi ! Câu 3: Cho xâu S gồm có kí tự chữ cái, kí tự chữ số, kí tự đặc biệt và khoảng cách. Xâu S không dài hơn 250 kí tự. Yêu cầu: Em hãy viết chương trình nhập vào xâu S, tạo thêm 3 xâu S1, S2 và S3. Xâu S1 gồm các kí tự chữ cái của xâu S, xâu S2 gồm

khanh2006

2 năm trước

làm ơn giúp mình với mọi người ơi ! Câu 3: Cho xâu S gồm có kí tự chữ cái, kí tự chữ số, kí tự đặc biệt và khoảng cách. Xâu S không dài hơn 250 kí tự. Yêu cầu: Em hãy viết chương trình nhập vào xâu S, tạo thêm 3 xâu S1, S2 và S3. Xâu S1 gồm các kí tự chữ cái của xâu S, xâu S2 gồm các kí tự chữ số trong xâu S và xâu S3 gồm các kí tự đặc biệt trong xâu S. Em hãy cho biết trong xâu S có bao nhiêu kí tự chữ cái, có bao nhiêu kí tự đặc biệt, có bao nhiêu khoảng cách và tính tổng các kí tự chữ số của xâu S.

Loga Sinh Học lớp 12

0 lượt thích 11 xem

1 trả lời

Thích Trả lời

thaibaosp0709

uses crt;
var s,s1,s2,s3:string; i,d,a,t:longint;
begin
clrscr;
write('Nhap xau s: ');readln(s);
for i:=1 to length(s) do
begin
if upcase(s[i]) in ['A'..'Z'] then s1:=s1+s[i] else
if s[i] in ['0'..'9'] then begin s2:=s2+s[i]; val(s[i],a); t:=t+a; end else
if s[i]=' ' then inc(d) else
s3:=s3+s[i];
end;
writeln(s1);
writeln(s2);
writeln(s3);
writeln(length(s1));
writeln(length(s3));
writeln(d);
writeln(t);
readln
end.

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

darkspeed6666

uses crt;
var s,s1,s2,s3:string;
i,d:byte;
t:longword;
begin
clrscr;
readln(s);
for i:=1 to length(s) do
if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then
s1:=s1+s[i]
else if s[i] in ['0'..'9'] then s2:=s2+s[i]
else if s[i]=' ' then inc(d)
else s3:=s3+s[i];
if length(s2)<>0 then
t:=ord(s2[1])-48;
for i:=2 to length(s2) do
t:=t+ord(s2[i])-48;
writeln('Co ',length(s1),' chu cai');
writeln('Co ',length(s3),' ki tu dac biet');
writeln('Co ',d,' khoang cach');
writeln('Tong cac ki tu so: ',t);
readln;
end.

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

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

vẽ ny của bạn nl;nhìn giề ko có đâu

Giải giúp em với ạ em cảm ơn trc ạ

Hãy viết tất cả các thì tiếng anh ở lớp 6 đã hc trình bày dõi ràng. Dễ hiểu . Sẽ vote 5 sao và CHO CTLHN

Làm phép nhân: $\frac{x-6}{x^2+1}$ $.$ $\frac{3x^2-3x+3}{x^2-36}$ $+$ $\frac{x-6}{x^2+1}$ $.$ $\frac{3x}{x^2-36}$

Giúp mik vs ạ và đang cần gấp. Em camon

Các bạn vẽ Cali : Mai Trang , đi ạ Mk sẽ vote cho bạn vẽ đẹp nhất Trên app càng tốt nha Phông xanh dương nha mn

vẽ người que nl:thì ra làm hacker rất dễ

giúp mik 4 câu thôi hứa 5 sao cho tất cả ai trả lời (￣ ‘i ￣;)(￣ ‘i ￣;)(￣ ‘i ￣;)(￣ ‘i ￣;)(￣ ‘i ￣;)

Trong các năm 1957 – 1960, cách mạng miền Nam đứng trước những lựa chọn nào? Được và mất của mỗi sự lựa chọn đó? Ai giúp mình với ạ !!!

: phân loại các dạng địa hình nước ta?

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