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;
int main()
{
int a,b;
freopen("hcn.inp","r",stdin);
freopen("hcn.out","w",stdout);
cin>>a>>b;
cout<<(a+b)*2<<endl;
cout<<a*b;
return 0;
}
const fi='hcn.inp';
fo='hcn.out';
var f1,f2:text;
a,b:array[1..100]of integer;
i,j,n:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eof(f1) do
begin
inc(n);
readln(f1,a[n],b[n]);
end;
for i:=1 to n do
writeln(f2,2*(a[i]+b[i]),' ',a[i]*b[i]);
close(f1);
close(f2);
end.
const fi='hcn.inp';
fo='hcn.out';
var f1,f2:text;
a,b:array[1..100]of integer;
i,j,n:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eof(f1) do
begin
inc(n);
readln(f1,a[n],b[n]);
end;
for i:=1 to n do
writeln(f2,2*(a[i]+b[i]),' ',a[i]*b[i]);
close(f1);
close(f2);
end.
uses crt;
const fi='dulieu.dat';
var f1:text;
a,b,p,s:array[1..100]of real;
i,n:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eof(f1) do
begin
n:=n+1;
readln(a[n],b[n]);
end;
for i:=1 to n do
begin
p[i]:=(a[i]+b[i])/2;
s[i]:=a[i]*b[i];
end;
for i:=1 to n do
writeln(p[i]:4:2,' ',s[i]:4:2);
close(f1);
readln;
end.
#include <fstream>
using namespace std;
int gia_tri_cuoi(int x)
{
if (x < 10) return x;
int tong = 0;
while (x > 0)
{
tong += x % 10;
x /= 10;
}
return gia_tri_cuoi(tong);
}
int main()
{
ifstream fin("LUCKY.INP");
ofstream fout("LUCKY.OUT");
int a[105];
int N;
fin >> N;
for (int i = 0; i<N; ++i) fin >> a[i];
int LUCKY[10] = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0};
for (int i = 0; i<N; ++i) ++LUCKY[gia_tri_cuoi(a[i])];
int max = -1;
int ketqua = 0;
for (int i = 0; i<10; ++i)
{
if (LUCKY[i] > max)
{
ketqua = i;
max = LUCKY[i];
}
}
fout << ketqua << endl;
return 0;
}
program hotrotinhoc;
const fi='LUCKY.INP';
fo='LUCKY.OUT';
var n,k,a,i,max,d: byte;
dem,m,m1: array[0..105] of integer;
f: text;
function tong(x: byte): integer;
var t,t1: integer;
begin
t:=0; t1:=0;
while x<>0 do
begin
t:=t+(x mod 10);
x:=x div 10;
end;
while t<>0 do
begin
t1:=t1+(t mod 10);
t:=t div 10;
end;
tong:=t1;
end;
procedure ip;
begin
assign(f,fi);
reset(f);
readln(f,n);
for i:=1 to n do
read(f,m[i]);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
for i:=1 to n do
begin
m1[i]:=tong(m[i]);
inc(dem[m1[i]]);
end;
max:=0;
for i:=1 to n do
if dem[i]<>0 then
if max<=dem[i] then max:=dem[i];
write(f,max);
close(f);
end;
begin
ip;
out;
end.
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
program hotrotinhoc_hoc24;
const fi='hcn.inp';
fo='hcn.out';
var f: text;
a,b: integer;
procedure ip;
begin
assign(f,fi);
reset(f);
readln(f,a);
read(f,b);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
writeln(f,'Chu vi hinh chu nhat la : ',(a+b)*2);
write(f,'Dien tich hinh chu nhat la : ',a*b);
close(f);
end;
begin
ip;
out;
end.
var c,a,s:real;
begin
readln(c);
a:=c/4;
s:=a*a;
write(s:5:2);
end.
hình chữ nhật chứ có phải hình vuông đâu