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:string;
i:integer;
begin
write('Nhap xau ki tu S = ');readln(s);
for i:=1 to length(s) do
begin
if s[i] <> '0' then write('Vi tri cua so 0 cuoi cung la ',i-1);
i:=length(s);
end;
readln;
end.
def solve():
try:
with open("BAI3.INP", "r") as f_in:
line = f_in.readline().strip().split()
n = int(line[0])
m = int(line[1])
if not (1 < n <= 100 and 1 < m <= 100):
with open("BAI3.OUT", "w") as f_out:
f_out.write("-1")
return
matrix = []
for _ in range(n):
row = list(map(int, f_in.readline().strip().split()))
matrix.append(row)
with open("BAI3.OUT", "w") as f_out:
for i in range(n):
max_val = float('-inf')
positions = []
for j in range(m):
if matrix[i][j] > max_val:
max_val = matrix[i][j]
positions = [i * m + j + 1]
elif matrix[i][j] == max_val:
positions.append(i * m + j + 1)
f_out.write(f"{max_val} {' '.join(map(str, positions))}\n")
except FileNotFoundError:
with open("BAI3.OUT", "w") as f_out:
f_out.write("-1")
except ValueError:
with open("BAI3.OUT", "w") as f_out:
f_out.write("-1")
solve()- 1. Đọc và kiểm tra dữ liệu đầu vào:
- Đọc \(N\) và \(M\) từ dòng đầu tiên của file BAI3.INP.
- Kiểm tra điều kiện \(1 < N, M \le 100\). Nếu không thỏa mãn, ghi -1 ra file BAI3.OUT và kết thúc.
- Đọc ma trận từ các dòng tiếp theo của file.
- 2. Xử lý từng hàng:
- Lặp qua từng hàng của ma trận (từ 0 đến \(N-1\)).
- Trong mỗi hàng:
- Khởi tạo
max_vallà giá trị nhỏ nhất có thể (- vô cùng) và một danh sách rỗngpositions. - Lặp qua các phần tử trong hàng (từ 0 đến \(M-1\)):
- Nếu giá trị hiện tại lớn hơn
max_val: - Cập nhật max_val với giá trị hiện tại.
- Xóa danh sách positions và thêm vị trí hiện tại vào.
- Nếu giá trị hiện tại bằng
max_val: - Thêm vị trí hiện tại vào danh sách positions.
- Nếu giá trị hiện tại lớn hơn
- Ghi kết quả:
- Ghi
max_valvà các vị trí trongpositionsra file BAI3.OUT, cách nhau bởi dấu cách.
- Ghi
- Khởi tạo
- 3. Xử lý lỗi:
- Nếu không tìm thấy file, hoặc dữ liệu không hợp lệ (không phải số nguyên), chương trình sẽ ghi -1 ra file BAI3.OUT.
3 4
1 2 3 4
5 6 7 8
9 10 11 124 4
8 4
12 4uses crt;
var st:string;
i,d:integer;
begin
clrscr;
readln(st);
d:=length(st);
for i:=1 to d do
if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then write(st[i]);
writeln;
for i:=1 to d do
if (st[i] in ['0'..'9']) then write(st[i]);
readln;
end.
uses crt;
var a:array[1..50]of int64;
i,n,t,max,min:int64;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
max:=a[1];
min:=a[1];
t:=0;
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
t:=t+a[i];
end;
writeln('Tong la: ',t);
writeln('So lon nhat la: ',max);
write('Vi tri la: ');
for i:=1 to n do
if a[i]=max then write(i:4);
writeln;
writeln('So nho nhat la: ',min);
write('Vi tri la: ');
for i:=1 to n do
if a[i]=min then write(i:4);
readln;
end.
var a:array[1..1000] of integer;
i,n,d,max:integer;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' = ');readln(a[i]);
if a[i] mod 2 <> 0 then d:=d+1;
end;
max:=a[1];
for i:=2 to n do
if a[i] > max then max:=a[i];
writeln('Co ',d,' so le');
write('So lon nhat la ',max);
readln
end.
#include<bits/stdc++.h>
using namespace std;
int main(){
long long i,dem[1000],d;
string s;
cin >>s;
for(i=0;i<s.size();i++)
dem[s[i]]++;
d=0;
for(i=97;i<=122;i++)
if(dem[i]%2==1)
d++;
if(d>0)
cout<<d-1;
else
cout<<0;
return 0;
}