Nơi nộp bài Nguyễn Đăng Ninh

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

var d,x1,x2,y1,y2:real;
BEGIN
assign(input,'BAI2.INP');
assign(output,'BAI2.OUT');
reset(input);
rewrite(output);
readln(x1,x2,y1,y2);
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
write(d:0:2);
close(input);
close(output);
END.

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

var N:longint;
begin
assign(input,'BAI4.inp'); reset(input);
assign(output,'BAI4.out'); rewrite(output);
readln(N);
if (N mod 3=0) and (N mod 5<>0)
then
writeln(true)
else
writeln(false);
close(input);
close(output);
end.

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

var rmin,a,b,c:longint;
begin
assign(input,'BAI5.inp'); reset(input);
assign(output,'BAI5.out'); rewrite(output);
readln(a,b,c);
rmin:=a;
if b<rmin then rmin:=b;
if c<rmin then rmin:=c;
writeln(rmin);
close(input);
close(output);
end.

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

var dAB,dAC,dBC,x1,x2,y1,y2,x3,y3:real;
begin
assign(input,'BAI3.inp');reset(input);
assign(output,'BAI3.out');rewrite(output);
readln(x1,y1,x2,y2,x3,y3);
dAB:=sqrt(sqr(x2-x1)+sqr(y2-y1));
dAC:=sqrt(sqr(x3-x1)+sqr(y3-y1));
dBC:=sqrt(sqr(x3-x2)+sqr(y3-y2));
writeln(dAB:0:3,#32,dAC:0:3,#32,dBC:0:3);
close(input);
close(output);
end.

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

var S,p,a,b,c:real;
begin
assign(input,'BAI6.inp'); reset(input);
assign(output,'BAI6.out'); rewrite(output);
readln(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a)
then
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(S:0:3);
end
else
writeln('none');
close(input);
close(output);
end.

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

var N,i:longint;
S:real;
begin
assign(input,'BAI7.inp'); reset(input);
assign(output,'BAI7.out'); rewrite(output);
readln(N);
for i:=1 to 2*N-1 do
S:=1+1/(2*N-1);
writeln(S:0:3);
close(input);
close(output);
end.

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

var N,dem,i:longint;

begin
assign(input,'BAI8.inp'); reset(input);
assign(output,'BAI8.out'); rewrite(output);
readln(N);
dem:=0;
for i:=1 to N do
if sqrt(i)=trunc(sqrt(i))
then
inc(dem);
writeln(dem);
close(input);
close(output);
end.

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

var N,dem,i:longint;
begin
assign(input,'BAI9.inp'); reset(input);
assign(output,'BAI9.out'); rewrite(output);
readln(N);
for i:=1 to N do
if N mod i=0 then
inc(dem);
writeln(dem);
close(input);
close(output);
end.

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

var N,i:longint;
begin
assign(input,'BAI10.inp'); reset(input);
assign(output,'BAI10.out'); rewrite(output);
readln(N);
for i:=1 to N do
if N mod i=0 then
if i mod 2=0 then
writeln(i,#32);
close(input);
close(output);
end.

» Lê Đặng Trà My
» Lê Đăng Dương
» Đặng phương thu
» Bùi Đăng Cường
» Đặng Phương Thu