pascal问题求答案,求解答
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/16 11:02:25
pascal问题求答案,求解答
1、假设邮局规定寄邮件时若每件重量在1公斤以内(含1公斤),按每公斤1.5元计算邮费,如果超过1公斤时,其超出部分每公斤加收0.8元.请编程序计算邮件收费.
1、假设邮局规定寄邮件时若每件重量在1公斤以内(含1公斤),按每公斤1.5元计算邮费,如果超过1公斤时,其超出部分每公斤加收0.8元.请编程序计算邮件收费.
![pascal问题求答案,求解答](/uploads/image/z/19268509-13-9.jpg?t=pascal%E9%97%AE%E9%A2%98%E6%B1%82%E7%AD%94%E6%A1%88%2C%E6%B1%82%E8%A7%A3%E7%AD%94)
Var n,w:real;
Begin
Readln(n);
If n<=1then w:=1.5*n
Else w:=0.8*(n-1)+1.5;
Writeln(w)
End.
再问: 请问,有没有,直接小于1公斤或等于的
Begin
Readln(n);
If n<=1then w:=1.5*n
Else w:=0.8*(n-1)+1.5;
Writeln(w)
End.
再问: 请问,有没有,直接小于1公斤或等于的