Pascal 练习!1.火车托运行李,要根据重量按不同的标准收费.例如不超过50kg,按每公斤0.35元收费.若超过50kg按每公斤0.35元收费,其余超过部分按每公斤0.50元收费.现输入托运行李重量,要求计算并输
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/27 18:38:37
Pascal 练习!1.火车托运行李,要根据重量按不同的标准收费.例如不超过50kg,按每公斤0.35元收费.若超过50kg按每公斤0.35元收费,其余超过部分按每公斤0.50元收费.现输入托运行李重量,要求计算并输
Pascal 练习!
1.火车托运行李,要根据重量按不同的标准收费.例如不超过50kg,按每公斤0.35元收费.若超过50kg按每公斤0.35元收费,其余超过部分按每公斤0.50元收费.现输入托运行李重量,要求计算并输出托运费.
2.输入一个数,如果这个数能同时满足用3除余2,用5除余3,用7除余2,则输出“OK”.
3.输入一个整数判断该数是否为完全平方数.（如果一个数是另一个整数的完全平方,那么我们就称这个数为完全平方数,如9=32,则9为一个完全平方数）
4.输入某学生成绩,如果该学生的成绩在区间〔80,90）内,输出成绩的等级“B”.
5.输入一个三位数,判断这个数中是否包含一个数字0,如果有输出“yes”
6.输入一个数,判断该数是正数、负数还是零,为正数输出“zhengshu”,为负数输出“fushu”,为零输出“ling”
7.输入三个整数,将该三个数从大到小输出.
8.输入一个三位的数,判断该数是否为水仙花数,是则输出“flower”.（水仙花数：若三位数abc,a^3+b^3+c^3=abc ,则称该数为水仙花数）
9.输入一个1000以内的数,判断该数是否为守行数（若某数的平方,其低位与该数本身相同,则称该数为守行数.例如25,252=625,62=36,平方值的低位与原数相同,25、6为守行数）.
10.猜数游戏.由计算机随机产生[0 ,2]之间的整数,从输入键盘输入另一个整数,判断是否相同.
Pascal 练习!1.火车托运行李,要根据重量按不同的标准收费.例如不超过50kg,按每公斤0.35元收费.若超过50kg按每公斤0.35元收费,其余超过部分按每公斤0.50元收费.现输入托运行李重量,要求计算并输
1
a,x:longint;
begin
readln(x);
if x>50 then begin
a:=x-50;
x:=50;
end;
writeln(x*0.35+a*0.5);
end.
2
var
x:longint;
begin
readln(x);
if x mod 3=2 then
if x mod 5=3 then
if x mod7=2 then
writeln('ok');
end.
3
x,i:longint;
begin
readln(x);
for i:=1 to x/2 do
if x div i=i then writeln('ok');
end.
4
var
x:longint;
begin
readln(x);
if (x80) then writeln('b');
end.
5
var
x:string;
la:longint;
begin
la:=length(x);
for i:=1 to la do
if x[i]='0' then writeln(‘yes');
end.
6
var
x:longint;
begin
readln(x);
if x>0 then writeln('zhengshu')
else
if x=0 then writeln('ling')
else
writeln('fushu');
end.
7
var
a,b,c.t:longint;
begin
readln(a,b,c);
if a