作业帮几道基础free pascal
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/07/14 03:53:32
几道基础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
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
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.
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.