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.

uses crt;

var s,s1,s2:string;

i,d:integer;

begin

clrscr;

readln(s);

s1:='';

s2:='';

d:=length(s);

for i:=1 to d do

  begin

if s[i] in ['0'..'9'] then s1:=s1+s[i];

if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then s2:=s2+s[i];

end;

writeln('Xau chua cac ki tu so la: ',s1);

writeln('Xau chua cac ki tu chu la: ',s2);

readln;

end.

21 tháng 2 2022

. Cấu trúc thủ tục nhập dữ liệu từ bàn phím:

Read(<danh sách biến vào>);

Readln(<danh sách biến vào>);

Cấu trúc thủ tục in dữ liệu ra màn hình: Write(<danh sách kết quả ra>); Writeln(<danh sách kết quả ra>);

Ví dụ:Write('Nhap so a:');

Readln(a);

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

readln(st);

d:=length(st);

for i:=1 to d do 

begin  

if st[i]=' ' then writeln

else write(st[i]);

end;

readln;

end.

16 tháng 3 2022

Uầy đỉnh thế

10 tháng 12 2021

var a,b:longint;

s,p:real;

ht,cs:string;

uses crt;

var st:string;

i,d,dem:integer;

begin

clrscr;

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

d:=length(st);

dem:=0;

for i:=1 to d do 

  if st[i]=#32 then inc(dem);

writeln(dem);

readln;

end.

13 tháng 4 2023

s = input("Nhập xâu s: ")
x = input("Nhập xâu x: ")
count = 0

for i in range(len(s) - len(x) + 1):
    if s[i:i+len(x)] == x:
        count += 1

if count == 0:
    print("Không xuất hiện")
else:
    print("Số lần xuất hiện của x trong s là:", count)

31 tháng 10 2021

Câu 3: 

const pi=3.14

var x,y:real;

27 tháng 5 2023

A = ["1", "2", "3", "4", "5"]
S = " ".join(A) # Nối các phần tử trong danh sách A thành xâu mới, cách nhau bởi khoảng trắng
S = '"' + S + '"'  # Thêm dấu ngoặc kép ở đầu và cuối xâu
print(S)  # In ra xâu S
#Kết quả in ra: "1 2 3 4 5"

length = len(S)  # Tính độ dài của xâu S
print(length)  # In ra độ dài
#Kết quả in ra: 11