Đỗ Thái Sơn

Tổng số bài gửi : 113 Join date : 08/06/2022

var xa,ya,xb,yb:longint;
dab:real;
begin
readln(xa,ya,xb,yb);
dab:=sqrt(sqr((xb-xa))+sqr((yb-ya)));
write(dab:0:2);
end.

Tổng số bài gửi : 113 Join date : 08/06/2022

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

Tổng số bài gửi : 113 Join date : 08/06/2022

var xa,ya,xb,yb,xc,yc,dab,dbc,dac:real;
begin
readln(xa,ya,xb,yb,xc,yc);
dab:=sqrt(sqr((xb-xa))+sqr((yb-ya)));
write(dab:0:2);
dbc:=sqrt(sqr((xc-xb))+sqr((yc-yb)));
write(dbc:0:2);
dac:=sqrt(sqr((xc-xa))+sqr((yc-ya)));
write(dac:0:2);
end.

Tổng số bài gửi : 113 Join date : 08/06/2022

var a,b,x,y:longint;
begin
readln(a,b);
x:=2*a + (b-2)*2;
write(x);
y:=(a-2)*(b-2);
write(y);
end.

Tổng số bài gửi : 113 Join date : 08/06/2022

var i,n:longint;
s:int64;
begin
readln(n);
s:=0;
for i:= 1 to 2*n-1 do
write(s);
end.

» Nguyễn Quốc Thái Sơn
» Phùng Thái Dương
» Giới thiệu về Hệ sinh thái số IELP