pascal问题求答案,求解答1、假设邮局规定寄邮件时若每件重量在1公斤以内(含1公斤),按每公斤1.5元计算邮费,如果超过1公斤时,其超出部分每公斤加收0.8元.请编程序计算邮件收费.

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/16 20:29:23

pascal问题求答案,求解答1、假设邮局规定寄邮件时若每件重量在1公斤以内(含1公斤),按每公斤1.5元计算邮费,如果超过1公斤时,其超出部分每公斤加收0.8元.请编程序计算邮件收费.
pascal问题求答案,求解答
1、假设邮局规定寄邮件时若每件重量在1公斤以内(含1公斤),按每公斤1.5元计算邮费,如果超过1公斤时,其超出部分每公斤加收0.8元.请编程序计算邮件收费.

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.