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.
LƯU Ý
Các bạn học sinh KHÔNG NÊN đăng các câu hỏi không liên quan đến nội dung học tập, hoặc những nội dung linh tinh gây nhiễu diễn đàn..nha
#include <iostream>
#include <vector>
using namespace std;
int main() {
int n, k;
cin >> n >> k;
int ai[n];
for (int i = 0; i < n; i++) {
cin >> ai[i];
}
vector<int> pairs(n);
for (int i = 0; i < n; i++) {
for (int j = 0; j < n; j++) {
if (i == j) continue;
if (ai[i] + ai[j] == k) {
pairs.push_back(make_pair(i, j));
}
}
}
sort(pairs.begin(), pairs.end());
int count = 0;
pairs.erase(pairs.begin(), pairs.end());
for (int i = 0; i < n; i++) {
for (int j = 0; j < n; j++) {
if (pairs[i].first == i && pairs[i].second == j) {
count++;
break;
}
}
if (count == n) {
break;
}
if (pairs[i].second == j) {
while (pairs[i].first != i) {
i++;
count++;
pairs.erase(pairs.begin() + i);
for (int j = 0; j < n; j++) {
if (ai[j] + ai[i] == k) {
pairs.push_back(make_pair(j, i+1));
break;
}
}
for (int j = 1;; j++) {
int count_n = 0, count_s = 0;
for (int i = j-1; i >= 0; i--) {
if (pairs[i].second == j) {
j++;
count_n++;
pairs.erase(pairs.begin() + i + 1);
pairs.er
#include<bits/stdc++.h>
using namespace std;
int main() {
int T, n;
cin>>T;
for(int t=0;t<T;t++){
int n,k,a,i;
cin>>n>>k;
int a[n];
for(int i=0;i<n;i++){
cin>>a[i];
}
int ans=0;
int c=0;
int sum=0;
int c0=0;
int c1=0;
int c2=0;
for(int i=0;i<n;i++){
sum+=a[i];
}
for(int i=0;i<n;i++){
if(sum<k && i!=0){
sum+=a[i]-1;
}
}
for(int i=0;i<n-1;i++){
for(int j=i+1;j<n;j++){
int sum=0;
for(int l=i;l<j;l++){
sum+=a[l];
}
if(sum==k){
c0=i;
c1=j;
}
}
}
printf("Case %d : %d - %d (c0,c1)\n",t+1,c*n+c0,c*n+c1);
++c;
}
return 0;
}
-lệnh dùng để xóa màn hình làm việc:
Uses Crt ; { khai báo thư viện hàm }
Clrscr; { lệnh xóa màn hình kết quả }
- hai lệnh này dùng song song vs nhau nha.
VD:
Program vi_du;
uses crt;
var i,n: integer;
s: real;
begin
clrscr;
write('nhap so n ='); readln(n);
s:=0;
for i:= 1 to n do
s:=s+i;
writeln(s :4:2);
readln;
end.
Program Chuoi_Chu_Thuong;
Uses Crt;
Var i,l:integer;
st:string[50];
Begin
Clrscr;
Writeln(‘DOI CHUOI SANG CHUOI CHU THUONG’);
Write(‘Nhap chuoi ky tu: ‘); Readln(st);
For i:=1 to length(st) do
If (st[i]>=’A’) and (st[i]<='Z') then st[i]:= chr(ord(st[i])+32);
Writeln;
Writeln('Chuoi doi thanh chu thuong la : '); Writeln(st);
Writeln; l:=length(st); st[l]:=upcase(st[l]); For i:=l downto 2 do
If st[i]=' ' then st[i-1]:=upcase(st[i-1]);
Writeln('Chuoi cac ky tu cuoi cua tu la ky tu hoa: ');
Writeln(st);
Readln;
End.
có
ko