Nguyễn Tuấn Anh

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

var i,n: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=0then
writeln(i);
close(input);
close(output);
end.

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

var i,dem,n: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 : 29 Join date : 26/10/2022 Age : 16

var dem,i,n:longint;
begin
assign(input,'bai8.inp');reset(input);
assign(output,'bai8.out');rewrite(output);
readln(n);
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 : 29 Join date : 26/10/2022 Age : 16

var i,n: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 : 29 Join date : 26/10/2022 Age : 16

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:2);
end
else
writeln('none');
close(input);
close(output);
end.

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

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 rmin>b then rmin:=b;
if rmin>c then rmin:=c;
writeln(rmin);
close(input);
close(output);
end.

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

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

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

var d,x1,x2,y1,y2:real;
begin
assign(input,'bai2.inp');reset(input);
assign(output,'bai2.out');rewrite(output);
readln(x1,x2,y1,y2);
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln(d:0:2);
close(input);
close(output);
end.

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

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.

» Nguyễn Tuấn Anh
» Nguyễn Tuấn Anh
» trần gia nhi
» Nghiêm Tuấn Tú
» Nghiêm Tuấn Tú