Bài 1: Nhập vào một xâu các số nguyên hoặc số thực từ bàn phím cách nhau bởi dấu cách. Tính tổng, trung bình các số vừa nhập trong xâu đó.
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.
A=input("Nhập dãy các số cách nhau bởi dấu cách: ")
S=A.split()
k = 0
n=[]
c = len(S)
m1 = min(S)
m2 = max(S)
for x in S:
n.append(float(x))
b=[]
for a in n :
if a % 2 != 0 :
b.append(float(a))
S=0
for i in b:
k=k+i
print("Số lượng các số đã nhập",c)
print("Tổng các số lẻ là", k)
print("Số nhỏ nhất là", m1)
print("Số lớn nhất là ", m2)
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)
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
writeln('Xau vua nhap la: ',st);
for i:=1 to d do
if st[i]=#32 then delete(st,i,1);
writeln('Xau moi la: ',st);
readln;
end.
Bài 3:
uses crt;
const fi='teptong.txt';
var a,b:integer;
f1:text;
begin
clrscr;
assign(f1,fi); rewrite(f1);
readln(a,b);
writeln(a+b);
writeln(f1,a+b);
close(f1);
readln;
end.
2:
uses crt;
var st:string;
d,i,dem1,dem2:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
dem1:=0;
dem2:=0;
for i:=1 to d do
begin
if st[i] in ['0'..'9'] then inc(dem1);
if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then inc(dem2);
end;
writeln('So ki tu la chu so la: ',dem1);
writeln('So ki tu la chu cai la: ',dem2);
for i:=1 to d do
if st[i] in ['0'..'9'] then delete(st,i,1);
writeln('Xau sau khi xoa cac chu so la: ',st);
readln;
end.
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.
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.