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.
#include <bits/stdc++.h>
using namespace std;
typedef long long ll;
map<ll,ll> mp;
int main()
{
ios::sync_with_stdio(0);cin.tie(0);cout.tie(0);
freopen("MAP1.INP","r",stdin);
freopen("MAP1.OUT","w",stdout);
ll n; cin >> n;
ll a[n+5];
for(ll i=1;i<=n;i++) cin >> a[i], mp[a[i]]++;
for(pair<ll,ll> it:mp) cout << it.first << " " << it.second << "\n";
}
Chúc bạn học tốt!
11:
#include <bits/stdc++.h>
using namespace std;
double a,b,c;
int main()
{
cin>>a>>b>>c;
if (a>0 && b>0 && c>0 && a+b>c && a+c>b && b+c>a) cout<<"YES";
else cout<<"NO";
return 0;
}
program TimSoDoiXung;
var
f_in, f_out: text;
n, num, tmp, rem: integer;
begin
// mở file đầu vào
assign(f_in, 'sdx.inp');
reset(f_in);
// mở file đầu ra
assign(f_out, 'sdx.out');
rewrite(f_out);
// đọc n từ file đầu vào
readln(f_in, n);
// tìm các số đối xứng
for num := 1 to n do
begin
tmp := num;
rem := 0;
while tmp <> 0 do
begin
rem := rem * 10 + tmp mod 10;
tmp := tmp div 10;
end;
if num = rem then
writeln(f_out, num);
end;
// đóng file đầu vào và đầu ra
close(f_in);
close(f_out);
end.
2:
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,i,kt=0;
cin>>n;
for (int i=2; i*i<=n; i++)
if (n%i==0) kt=1;
if (kt==0) cout<<"YES";
else cout<<"NO";
}
program CT_dautien;
uses crt;
var a:integer;
begin
clrscr;
writeln('moi nhap so a');readln(a);
if a mod 2 = 0 then write(a, 'la so chan') else write(a, 'la so le');
readln
end.
1:
uses crt;
const fi='min4so.inp';
var f1:text;
a,b,c,d,min:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,a,b,c,d);
min:=a;
if min>b then min:=b;
if min>c then min:=c;
if min>d then min:=d;
writeln('so nho nhat la: ',min);
close(f1);
readln;
end.
2:
const fi='tongtich.inp';
fo='tongtich.out';
var f1,f2:text;
a,b:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b);
if (a mod 2=0) and (b mod 2=0) then writeln(f2,'tong cua hai so la: ',a+b)
else writeln(f2,'tich cua hai so la: ',a*b);
close(f1);
close(f2);
end.
3:
const fi='socp2.inp';
fo='socp2.out';
var f1,f2:text;
n:integer;
x:real;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
if trunc(sqrt(n))=sqrt(n) then
begin
writeln(f2,'YES');
x:=sqrt(n);
writeln(f2,x:4:2);
end
else writeln(f2,'NO');
close(f1);
close(f2);
end.
4:
const fi='kttg2.inp';
fo='kttg2.out';
var a,b,c,kt:integer;
f1,f2:text;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
write(f2,'day la tam giac ');
kt:=0;
if ((a=b)and(a<>c)and(b<>c)) or ((b=c)and(b<>a)and(b<>c)) or ((a=c)and(a<>b)and(c<>b)) then kt:=1;
if (a=b) and (b=c) then kt:=2;
if (sqr(a)=sqr(b)+sqr(c)) or (sqr(b)=sqr(a)+sqr(c)) or (sqr(c)=sqr(a)+sqr(b)) then kt:=3;
if kt=0 then write(f2,'thuong');
if kt=1 then write(f2,'can');
if kt=2 then write(f2,'deu');
if kt=3 then write(f2,'vuong');
end
else writeln(f2,'day khong phai la tam giac');
close(f1);
close(f2);
end.
hình như đấy k phải tin lớp 8 đúng k bạn