UC知道PASCAL编程
来源：百度知道 编辑：UC知道 时间：2024/05/22 16:24:18
各位帮忙！！！！编对一题就有悬赏。。
1.从键盘输入三角形的三条边，然后进行判断，打印出是否是三角形，是否是等腰三角形，是否是等边三角形，是否是直角三角形。
2.一次考试后，分获数学，物理，化学和外语第一名的考生一起猜测考试结果：甲说：丁获得外语第一。乙说：丙会获得物理第一。丙说：甲的数学成绩不会超过第三名。丁：没有人的化学成绩能超过乙。公布结果后发现：只有获得数学，外语第一的人猜对了，编程求出他们各获哪科第一。
3.在一次国际会议上，甲乙丙丁四人在讨论，交谈时发生语言障碍，在中，英，法，日四种语言中，每人只会两种，可惜选不出一种大家都会的语言，于是：
（1）只有一种语言有三个会；
（2）甲会日语，丁不会日语，但能互相交谈；
（3）乙不会英语，但甲和丙交谈时，却要请他当翻译；
（4）乙丙丁三人想互相交谈，却找不到三人都会的语言；
（5）没有人既会日语，又有法语交谈。
请问：甲乙丙丁各会什么语言。
1.从键盘输入三角形的三条边，然后进行判断，打印出是否是三角形，是否是等腰三角形，是否是等边三角形，是否是直角三角形。
2.一次考试后，分获数学，物理，化学和外语第一名的考生一起猜测考试结果：甲说：丁获得外语第一。乙说：丙会获得物理第一。丙说：甲的数学成绩不会超过第三名。丁：没有人的化学成绩能超过乙。公布结果后发现：只有获得数学，外语第一的人猜对了，编程求出他们各获哪科第一。
3.在一次国际会议上，甲乙丙丁四人在讨论，交谈时发生语言障碍，在中，英，法，日四种语言中，每人只会两种，可惜选不出一种大家都会的语言，于是：
（1）只有一种语言有三个会；
（2）甲会日语，丁不会日语，但能互相交谈；
（3）乙不会英语，但甲和丙交谈时，却要请他当翻译；
（4）乙丙丁三人想互相交谈，却找不到三人都会的语言；
（5）没有人既会日语，又有法语交谈。
请问：甲乙丙丁各会什么语言。
1,var a,b,c:integer;
begin
readln(a,b,c);
if (a+b>c)and(b+c>a)and(a+c>b) then writeln('三角形');
if (a=b)or(b=c)or(a=c) then writeln('等腰三角形');
if (a=b)and(b=c) then writeln('等边三角形');
if (a*a+b*b=c*c) or(b*b+c*c=a*a)or(c*c+a*a=b*b) then writeln('直角三角形');
end.
没运行过,随手编的,看看怎么样
第二三题都是穷举所有可能, 再排除不符合条件的.