来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/07/08 05:29:34
pascal问题求答案,求解答
1、假设邮局规定寄邮件时若每件重量在1公斤以内(含1公斤),按每公斤1.5元计算邮费,如果超过1公斤时,其超出部分每公斤加收0.8元.请编程序计算邮件收费.
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公斤或等于的
作业帮