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 a,b:array[1..1000]of longint; d:text; i,j,n,k,t,kt,ktt:longint;
begin
clrscr;
assign(d,'input.pas');reset(d);
readln(d,n);
for i:=1 to n do read(d,a[i]);
k:=0;
for i:=1 to n do
begin
t:=0;
for j:=i to n do
begin
t:=t+a[j];
inc(k,3);
b[k-2]:=i;
b[k-1]:=i+j;
b[k]:=t;
end;
end;
// for i:=1 to k do write(b[i],';'); writeln;
kt:=0;
i:=0;
repeat
inc(i); ktt:=0;
for j:=1 to k do If i=b[j] then ktt:=1;
if ktt=0 then kt:=1;
until kt=1;
writeln(i);
close(d);
readln
end.
Cái test thứ 2 đúng, còn cái test thứ 1 sai rồi bạn ơi phải ra 8 mới đúng mà mình chạy ra 11
Câu 2:
Program HOC24;
var i,n,m: integer;
tb,tb1: longint;
a,b: array[1..32000] of integer;
begin
write('Nhap so N : '); readln(n);
tb:=0;
for i:=1 to n do
begin
write('Nhap so thu ',i,' : '); readln(a[i]);
tb:=tb+a[i];
end;
write('Nhap so M : '); readln(n);
tb1:=0;
for i:=1 to m do
begin
write('Nhap so thu ',i,' : '); readln(b[i]);
tb1:=tb1+b[i];
end;
if (tb/n)>(tb1/m) then write('Trung binh cong cua N so lon hon M so')
else write('Trung binh cong cua M so lon hon N so')
else (tb/n)=(tb1/m) then write('Trung binh cong cua M so bang hon N so');
readln
end.
Câu 1:
Program HOC24;
var s,st: string;
n,i,j: integer;
a: array[1..32000] of string;
function chuyen(x: string): string;
begin
x[1]:=upcase(x[1]);
chuyen:=x;
end;
begin
write('Nhap xau : '); readln(s);
while s[1]=#32 do delete(s,1,1);
while s[length(s)]=#32 do delete(s,length(s),1);
while pos(#32#32,s)<>0 do delete(s,pos(#32#32,s),1);
writeln('Xau sau khi xoa dau cach : ',s);
st:=s;
s:=s+' ';
while length(s)<>0 do
begin
st:=copy(s,1,pos(' ',s)-1);
n:=n+1;
a[n]:=st;
delete(s,1,pos(' ',s));
end;
write('Cac ki tu in hoa dau tien cua moi tu : ');
for i:=1 to n do write(chuyen(a[i]),' ');
writeln;
writeln('Vi tri cuoi cung cua ki tu cuoi cung so : ',length(st));
write('Sau khi xoa tu cuoi cung : ');
for i:=1 to n-1 do write(chuyen(a[i]),' ');
readln
end.
Bài 2:
#include <bits/stdc++.h>;
using namespace std;
int main();
{
long m,n;
cout<<"Nhap m="; cin>>m;
cout<<"Nhap n="; cin>>n;
cout<<m*n-2;
return 0;
}
uses crt;
var a:array[1..200]of integer;
n,i,k,t,t1:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
t:=0;
for i:=1 to n do
if a[i] mod 2<>0 then t:=t+a[i];
t1:=0;
for i:=1 to n do
if a[i] mod k=0 then t1:=t1+a[i];
writeln('Tong cac phan tu le la: ',t);
writeln('Tong cac phan tu la boi cua ',k,' la: ',t1);
readln;
end.
cau 1:
uses crt;
var a:array[1..100] of integer;
n,i,min: integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
min:=a[1];
for i:=2 to n do
if min>a[i] then min=a[i];
writeln(a[i]);
readln;
end.
cau 2:
uses crt;
g:text;
s:string;
const fo='CHUSO.TXT';
begin
assign(g,fo);
rewrite(g);
readln(s);
for i:=1 to length(s) do
if not((s[i] in ['a'..'z'])and(s[i] in ['A'..'Z])) then delete(s,i,1);
writeln(g,s);
end.
#include <iostream>
int main() {
// Nhập vào số lượng kWh tiêu thụ từ bàn phím
int N;
std::cout << "Nhap so luong kWh tieu thu: ";
std::cin >> N;
// Kiểm tra ràng buộc
if (N <= 0 || N >= 1000) {
std::cerr << "Nhap khong hop le. N phai nam trong khoang (0, 1000)" << std::endl;
return 1;
}
// Tính tiền điện
int gia1 = 1500; // Giá cho dưới 200 kWh
int gia2 = 3000; // Giá cho từ 200 kWh trở lên
int thanhTien;
if (N <= 200) {
thanhTien = N * gia1;
} else {
thanhTien = 200 * gia1 + (N - 200) * gia2;
}
// In kết quả ra màn hình
std::cout << "Tien dien cua ban Nam la: " << thanhTien << " VND" << std::endl;
return 0;
}