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 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.
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.
a)
m = int(input("Nhập số dòng của ma trận: "))
n = int(input("Nhập số cột của ma trận: "))
# Khởi tạo ma trận A với kích thước m x n
A = []
for i in range(m):
row = list(map(int, input(f"Nhập dòng thứ {i+1} (gồm {n} số cách nhau bởi dấu cách): ").split()))
A.append(row)
# In ma trận A ra màn hình
print("Ma trận A:")
for row in A:
print(*row)
# Tính tổng các phần tử trong ma trận A
total = 0
for row in A:
total += sum(row)
print("Tổng các phần tử trong ma trận A là:", total)
b)
# Tìm dòng có tổng các phần tử lớn nhất
max_sum = max(sum(row) for row in A)
print("Dòng có tổng các phần tử lớn nhất là:")
for i, row in enumerate(A):
if sum(row) == max_sum:
print(f"Dòng thứ {i+1}: {row}")
c)
Tìm các giá trị phân biệt trong ma trận A
distinct_values = set()
for row in A:
distinct_values.update(set(row))
# In các giá trị phân biệt ra màn hình
print("Các giá trị phân biệt trong ma trận:")
print(*distinct_values)
d)
k=int(input("nhập số cần tìm"))
l=0
for i in range(m):
for j in range(n):
if k==a[i][j]:
l=l+1
print('xuất hiện ở các vị trí',i,j)
print('số',k,' xuất hiện',l,' lần')
Use crt;
Var S : String;
P: longint;
Begin
Write('Nhap s: '); readln (S);
For P:=length(S) downto 1 do
Write(P);
Readln;
End.
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
writeln('Xau ban vua nhap la: ',st);
writeln('Xau nguoc la: ');
for i:=d downto 1 do
write(st[i]:4);
readln;
end.
viết chương trình nhập vào từ bàn phím xâu ký tự S . tính và đưa ra màn hình số lượng kí tự trog xâu
uses crt;
var st:string;
begin
clrscr;
write('Nhap xau:'); readln(st);
writeln(length(st));
readln;
end.
m = int(input("Nhập số hàng của ma trận: "))
n = int(input("Nhập số cột của ma trận: "))
A = []
for i in range(m):
# Nhập một dòng gồm n số nguyên cách nhau bởi dấu cách
row = list(map(int, input(f"Nhập dòng {i+1}: ").split()))
A.append(row)
# In ma trận A ra màn hình
for i in range(m):
for j in range(n):
print(A[i][j], end=" ")
print()
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 st[i]:='_';
writeln('Xau thay the la: ',st);
readln;
end.