trần gia nhi

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

bai 1

Code:: uses crt;
var a,b,c:longint;
   s,p:longint;
  begin
  clrscr;
   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,',',p);
   readln;
   end.

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

bai2

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

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

bai3

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

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

bai4

Code:: var a,b,c,d :longint;
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);
readln;
end.

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

bai5

Code:: var a,b,c,d :longint;
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);
readln;
end.

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

bai6

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

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

bai7

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

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

bai8

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

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

bai9

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

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

bai 2
var a,b,c:longint;
s,p: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 : 18 Join date : 26/10/2022 Age : 15

bai10

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

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

bai11

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:2);
readln;
end.

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

bai12

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

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

bai13

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

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

bai14

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