几道基础free pascal 1.输入三角形三边,判断是什么三角形（等边?等腰?一般?）2.输入三个数.按从大到小打印.3.计算1901年到2099年的某月某日是星期几.4.输入两个正整数a,b.b最大不超过三位,a不大

来源：学生作业帮助网编辑：作业帮时间：2024/05/11 02:44:23

几道基础free pascal 1.输入三角形三边,判断是什么三角形（等边?等腰?一般?）2.输入三个数.按从大到小打印.3.计算1901年到2099年的某月某日是星期几.4.输入两个正整数a,b.b最大不超过三位,a不大
几道基础free pascal
1.输入三角形三边,判断是什么三角形（等边?等腰?一般?）
2.输入三个数.按从大到小打印.
3.计算1901年到2099年的某月某日是星期几.
4.输入两个正整数a,b.b最大不超过三位,a不大于31.使a在左,b在右,拼成一个新的数c.例如：a=2,b=16,c=216.
提示：求C公式为
C=A*K+B

几道基础free pascal 1.输入三角形三边,判断是什么三角形（等边?等腰?一般?）2.输入三个数.按从大到小打印.3.计算1901年到2099年的某月某日是星期几.4.输入两个正整数a,b.b最大不超过三位,a不大
1：
program t1;
var
a,b,c:integer;
begin
readln(a,b,c);
if (a=b) or (a=c) or (b=c)
then
begin
if (a=b) and (b=c) then writeln('deng bian')
else writeln('deng yao')
end
else writeln('yi ban');
end.
2：
program t2;
var
a,b,c,t:integer;
begin
readln(a,b,c);
if a=10 then k:=10
else k:=1;
c:=a*k+b;
writeln(c);
end.

几道基础free pascal 1.输入三角形三边,判断是什么三角形（等边?等腰?一般?）2.输入三个数.按从大到小打印.3.计算1901年到2099年的某月某日是星期几.4.输入两个正整数a,b.b最大不超过三位,a不大 FREE PASCAL,输入两个数,求最小公倍数 free pascal问题问题共有三题,我是新手,1.输入一个自然数n（n free pascal常见语句求几道初学 free pascal free pascal 黑洞6174 用free pascal编程：输入两个数,求他们的最大公因数和最小公倍数求Free Pascal程序问题如下：第一行输入一个正整数n（1 free pascal基础编程描述输入两个正实数a,b（a1）,输出a的b次幂、以a为底b的对数.输入输入两个正实数a,b输出输出a的b次幂、以a为底b的对数（每个数据一行,输出场宽为12,保留4位小数）样例输入 pascal 输入n(1 pascal 输入n(1 free pascal怎样产生随机数 Free Pascal问题任意输入一个四位数,输出的结果是其各个数位上的数字之和用free pascal输入三角形三条边的值,能构成三角形,输出其面积后结束,不能输出no 如果用free pascal篇写程式应该怎样写;;请各位大侠指点一下任意输入一个正整数,(0 Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal?Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal? 求平均数用free pascal输入n个数,求出这些数的平均数.输入：只有一行共有n个数,数与数之间用一个空格隔开 (1 free pascal算式处理：输入一个算式,输出解,有括号.例：输入：1/((7+3)*6)*60+1输出：1/((7+3)*6)*30+1=2