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.
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.
xau = input('Nhap chuoi: ')
so_khoang_cach = xau.count(' ')
print('So khoang cach:', so_khoang_cach)
vi_tri = []
for i in range(len(xau)):
if xau[i] == ' ':
vi_tri.append(i)
print('Vi tri khoang cach:', vi_tri)
chuoi_A = input("Nhập chuỗi A: ")
if chuoi_A.find("123") != -1:
print("Chuỗi A chứa chuỗi con '123'")
else:
print("Chuỗi A không chứa chuỗi con '123'")
A = input("Nhập vào chuỗi A: ")
if "123" in A:
print("Chuỗi A chứa chuỗi con '123'.")
else:
print("Chuỗi A không chứa chuỗi con '123'.")
xau = input('Nhập xâu kí tự: ')
chu_cai, chu_so, ki_tu_khac = 0, 0, 0
for kt in xau:
if kt.isalpha():
chu_cai += 1
elif kt.isdigit():
chu_so += 1
else:
ki_tu_khac += 1
print('Số lượng kí tự chữ cái:', chu_cai)
print('Số lượng kí tự chữ số:', chu_so)
print('Số lượng kí tự khác:', ki_tu_khac)
Python:
n = [float(i) for i in input("Nhập vào một xâu: ").split()]
tong = sum(n)
TB = tong / len(n)
print("Tổng các số trong xâu là: ", tong)
print("Trung bình các số trong xâu là: ", TB)
Pascal:
program tinh_tong_trungbinh;
var
input_string: string;
numbers: array of real;
i, n: integer;
sum, average: real;
begin
write('Nhập vào một xâu: ');
readln(input_string);
// Tách chuỗi thành danh sách các số
n := 0;
for i := 1 to length(input_string) do
begin
if (input_string[i] in ['0'..'9', '.', '-']) then
begin
if (i = 1) or (not (input_string[i-1] in ['0'..'9', '.', '-'])) then
n := n + 1;
end;
end;
SetLength(numbers, n);
n := 0;
for i := 1 to length(input_string) do
begin
if (input_string[i] in ['0'..'9', '.', '-']) then
begin
if (i = 1) or (not (input_string[i-1] in ['0'..'9', '.', '-'])) then
begin
val(copy(input_string, i, length(input_string) - i + 1), numbers[n], i);
n := n + 1;
end;
end;
end;
// Tính tổng và trung bình
sum := 0;
for i := 0 to n - 1 do
sum := sum + numbers[i];
if (n > 0) then
begin
average := sum / n;
// Hiển thị kết quả
writeln('Tổng: ', sum:0:2);
writeln('Trung bình: ', average:0:2);
end
else
writeln('Không có số hợp lệ để tính toán');
readln;
end.
