Nhập chuỗi kí tự tùy ý từ bàn phím. Xóa những kí tự là số trong chuỗi đó.
VD: lớp 9a3 chào đón năm học 2017
lớp a chào đón năm học
Giúp mk làm 1 lập trình pascal nha, mk ko pk làm giúp mk vs .
Cảm ơn trước nha mai mk nộp r
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
12 tháng 1 2021
uses crt;
var s:string;
i,d,dem:integer;
begin
clrscr;
write('Nhap chuoi S:'); readln(s);
d:=length(s);
writeln('Trong chuoi ',s,' co ',d,' ki tu');
writeln('Chuoi dao cua chuoi ',s,' la: ');
for i:=d downto 1 do
write(s[i]:4);
writeln;
dem:=0;
for i:=1 to d do
if s[i] in ['0'..'9'] then inc(dem);
writeln('So chu so trong xau la: ',dem);
readln;
end.
8 tháng 8 2023
def tach_chuoi(chuoi):
ky_tu_so = " "
ky_tu_chu = " "
for ky_tu in chuoi:
if ky_tu.isdigit():
ky_tu_so += ky_tu
elif ky_tu.isalpha():
ky_tu_chu += ky_tu
return ky_tu_so, ky_tu_chu
chuoi = input("Nhập vào một chuỗi: ")
ky_tu_so, ky_tu_chu = tach_chuoi(chuoi)
print("Các ký tự số trong chuỗi:", ky_tu_so)
print("Các ký tự chữ cái trong chuỗi:", ky_tu_chu)
28 tháng 6 2023
program HOC24;
uses crt;
var s: string;
i, n, count: integer;
begin
clrscr;
write('Nhap chuoi S: ');
readln(s);
n := length(s);
count := 0;
for i := 1 to n do
if (s[i] in ['0'..'9']) then
if (StrToInt(s[i]) mod 5 = 0) then
begin
writeln('So chia het cho 5 la: ', s[i]);
inc(count);
end;
writeln('Tong so chia het cho 5 la: ', count);
end.
29 tháng 6 2023
Câu lệnh này kiểm tra xem số tại vị trí i trong chuỗi s có chia hết cho 5 hay không. Nếu chia hết thì thực hiện lệnh bên trong if. Nếu không chia hết thì bỏ qua lệnh bên trong if và tiếp tục vòng lặp
NN
1
VQ
20 tháng 3 2022
tham khảo
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
readln(st);
d:=length(st);
for i:=1 to d do
if (not (st[i] in ['A'..'Z'])) and (not (st[i] in ['a'..'z'])) then write(st[i]);
readln;
end.
13 tháng 3 2022
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
readln(st);
d:=length(st);
for i:=1 to d do
if (not (st[i] in ['A'..'Z'])) and (not (st[i] in ['a'..'z'])) then write(st[i]);
readln;
end.
USES crt;
VAR i:integer; s1,s:string;
BEGIN
clrscr;
s1:='';
write('Nhap chuoi:'); readln(s);
for i:=1 to length(s) do
begin
if s[i] in ['0'..'9'] then
else s1:=s1+s[i];
end;
write('chuoi sau khi xoa la:',s1);
readln;
END.
bn có thể làm cho mk 1 cái gắn
for i:=1 to length(st) do val (st[i],so,code)
if code:=0 then delete(st,i,1);
vào lập trình dc ko z???
Cảm mơn bạn trc nha..