有某人认识做吖?PASCAL噶!急吖!!!!

来源：百度知道 编辑：UC知道 时间：2024/05/29 01:39:28
1、输入三个数，将其按照从小到大输出
2、任意输入三个数，判断是否能构成三角形，如能，则求出其面积，不能，则打印“NO”。要构成三角形，必须满足两边之和大于第三边，即：B＋C＞A 或A＋C＞B 或A＋B＞C，如满足，则用海伦公式计算。
3、打印某年某月有几天

No.5
program l_5(input,output);
var
a,b,c,temp:integer;
begin
readln(a,b,c);
if a>b then
begin
temp:=a;
a:=b;
b:=temp;
end;
if b>c then
begin
temp:=b;
b:=c;
c:=temp;
end;
if a>b then
begin
temp:=a;
a:=b;
b:=temp;
end;
writeln(a,' ',b,' ',c);
end.

No.6
program l_6(input,output);
var
l:real;
a,b,c:integer;
begin
readln(a,b,c);
if (b+c>a) and (a+c>b) and (a+b>c) then
begin
l:=(a+b+c)/2;
writeln(sqrt(l*(l-a)*(l-b)*(l-c)):0:0);
end
else
writeln('NO');
end.

No.7
program l_7(input,output);
var
year,month:integer;
begin
readln(year,month);
if mo