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.

26 tháng 4 2023

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.

 

16 tháng 3 2023

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)

16 tháng 3 2023

làm sao để tìm số nhỏ nhất ở vị trí lớn nhất vậy bạn

20 tháng 3 2023

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.

16 tháng 3 2022

Uầy đỉnh thế