Trần Đồng Nguyệt Ánh

Tổng số bài gửi : 80 Join date : 26/10/2022

Bài 3:

Code:: var a,b,c,max,m,n,p:longint;
begin
readln(a,b,c);
m:=a+b;
n:=a+c;
p:=b+c;
max:=m;
if max<n then max:=n;
if max<p then max:=p;
write(max);
end.

Tổng số bài gửi : 80 Join date : 26/10/2022

Bài 4

Code:: var a,b,c,cv:longint;
dt,p:real;
begin
readln(a,b,c);
cv:=a+b+c;
p:=cv/2;
dt:=sqrt(p*(p-a)*(p-b)*(p-c));
write(cv,#32);
write(dt:0:2);
end.

Tổng số bài gửi : 80 Join date : 26/10/2022

Bài 1:

Code:: var a,b,c,s,p:longint;
begin
readln(a,b,c);
s:=(a+b+c)*(a*a+b*b);
p:=(a*a*a+b*b*b)*(c*c*c+b*b*b);
writeln(s,#32,p);
end.

Tổng số bài gửi : 80 Join date : 26/10/2022

Bài 2:

Code:: var m,n,p,q,x:longint;
begin
readln(m,n,p);
q:=(m+n)*p*p;
x:=m*n*(p+m);
writeln(q,#32,x);
end.

Tổng số bài gửi : 80 Join date : 26/10/2022

Bài 3

Code:: var x,y,z,t,a,b:longint;
begin
readln(x,y,z,t);
a:=(x+y)*(z+t);
b:=(x*x+y*y+z*z)*t;
writeln(a,#32,b);
end.

Tổng số bài gửi : 80 Join date : 26/10/2022

Bài 4

Code:: var a,b,c,d,x,y:longint;
begin
readln(a,b,c,d);
x:=(a+b)*(c+d);
y:=(a*a*a*a+b)+(c*c*c+d*d);
writeln(x,#32,y);
end.

Tổng số bài gửi : 80 Join date : 26/10/2022

Bài 5

Code:: var a,b,c,d,u,v,p:longint;
begin
readln(a,b,c,d);
u:=(a+b+c)*(c+d);
v:=(a*a*a+b)*(c*c*c+d*d);
p:=(u*u+v*v);
writeln(u,#32,v,#32,p);
end.

Tổng số bài gửi : 80 Join date : 26/10/2022

Bài 6

Code:: var u,v,a,b:longint;
begin
readln(u,v);
a:=(u-v)*(u+v);
b:=(u*u+v*v)*(u-v);
write(a,#32,b);
end.

Tổng số bài gửi : 80 Join date : 26/10/2022

Bài 7

Code:: var q,p,z,t,u,m,n:longint;
begin
readln(p,q,z,t,u);
m:=(p+q)*(z+t+u);
n:=(p*p+q*q)*(t*t+z);
writeln(m,#32,n);
end.

Tổng số bài gửi : 80 Join date : 26/10/2022

Bài 8

Code:: var a,b,x,t,m,n:longint;
begin
readln(a,b,x,t);
m:=sqr(a)+sqr(b);
n:=(m*m+x*x)*t;
writeln(m,#32,n);
end.

Tổng số bài gửi : 80 Join date : 26/10/2022

Bài 9

Code:: var a,h:longint;
s:real;
begin
readln(a,h);
s:=(a*h)/2;
writeln(s:0:3);
end.

Tổng số bài gửi : 80 Join date : 26/10/2022

Bài 10:

Code:: var a,b,c:longint;
p,s:real;
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c);
writeln(p:0:3,#32,s:0:3);
end.

Tổng số bài gửi : 80 Join date : 26/10/2022

Bài 11

Code:: var m,n,p,a:longint;
b:real;
begin
readln(m,n,p);
a:=(m+n)*p;
b:=(m+n)/p;
write(a,#32,b:0:3);
end.

Tổng số bài gửi : 80 Join date : 26/10/2022

Bài 12

Code:: var x,y,z,t,b:longint;
a:real;
begin
readln(x,y,z,t);
a:=(x+y)/(z+t);
b:=(x*x+y)*(z+t);
write(a:0:3,#32,b);
end.

Tổng số bài gửi : 80 Join date : 26/10/2022

Bài 13

Code:: r x,y,z,t,p:longint;
q:real;
begin
readlvan(x,y,z,t);
p:=(x+y)*(z+t*t);
q:=(x+y)/(z+t);
writeln(p,#32,q:0:3);
end.

Tổng số bài gửi : 80 Join date : 26/10/2022

Bài 14

Code:: var x1,y1,x2,y2,x3,y3:longint;
d1,d2,d3:real;
begin
readln(x1,y1,x2,y2,x3,y3);
d1:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
d2:=sqrt((x3-x1)*(x3-x1)+(y3-y1)*(y3-y1));
d3:=sqrt((x3-x2)*(x3-x2)+(y3-y2)*(y3-y2));
writeln(d1:0:3,#32,d2:0:3,#32,d3:0:3);
end.

Tổng số bài gửi : 80 Join date : 26/10/2022

DAY4_BAI8,9:

Code:: var n:string;
   i:longint;
begin
   readln(n);
   for i := length(n) downto 1 do
   write(i);
end.

Tổng số bài gửi : 80 Join date : 26/10/2022

DAY5_VD5

Code:: var a,b,c,res:longint;
begin
readln(a,b,c);
res:=a;
if b > res then res:=b;
if c > res then res:=c;
write(res);
end.

Tổng số bài gửi : 80 Join date : 26/10/2022

DAY5_VD6

Code:: var a,b,c,d,res:longint;
begin
readln(a,b,c,d);
res := a;
if b < res then res := b;
if c < res then res := c;
if d < res then res := d;
writeln(res);
end.

Tổng số bài gửi : 80 Join date : 26/10/2022

DAY5_VD7

Code:: var a,b,c,res:longint;
begin
readln(a,b,c);
res := a+b;
if a+c > res then res := a+c;
if b+c > res then res := b+c;
write(res);
end.

Tổng số bài gửi : 80 Join date : 26/10/2022

DAY5_VD9

Code:: var a,b,c,d,res:longint;
begin
readln(a,b,c,d);
res:=a*b;
if a*c < res then res := a*c;
if a*d < res then res := a*d;
if b*c < res then res := b*c;
if b*d < res then res := b*d;
if c*d < res then res := c*d;
write(res);
end.

Tổng số bài gửi : 80 Join date : 26/10/2022

Day7_bai1

Code:: var n,i:longint;
s:real;
begin
readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i;
writeln(s:0:3);
end.

Tổng số bài gửi : 80 Join date : 26/10/2022

day7_bai2

Code:: var s,i,n:longint;
begin
readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln(s);
end.

Tổng số bài gửi : 80 Join date : 26/10/2022

day7_bai3

Code:: var n,i:longint;
begin
readln(n);
for i:=1 to n-1 do write(i,#32);
end.

Tổng số bài gửi : 80 Join date : 26/10/2022

day7_bai4

Code:: var n,i:longint;
s:real;
begin
readln(n);
s:=0;
for i:=1 to 2*n-1 do
begin
if i mod 2 <> 0 then
s:=s+1/i;
end;
writeln(s:0:3);
end.

» Trần Đồng Nguyệt Ánh
» Trần Đồng Nguyệt Ánh
» Trần Đồng Nguyệt Ánh
» T1.1 Di chuyển từ Tây sang Đông
» Đào Nguyệt Anh gửi bài 1