作业帮 > 综合 > 作业

一个pascal语言的问题.

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/11 00:42:12
一个pascal语言的问题.
假设邮局规定寄邮件时若每件重量在1公斤以内(含1公斤),按每公斤1.5元计算邮费,如果超过1公斤时,其超出部分每公斤加收0.8元.请编程序计算邮件收费.
var
x,s:real;
begin
read(x); s:=0;
if x