作业帮Free Pascal 小明的生活非常忙碌,有时为了赶时间不得不打的.细心的他发现广州市出租车公司规定是:2.5 公里及2.5 公里以内为起步价10元,若超过2.5 公里,超过部分按每公里2.6 元收费.为了验算这
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/28 23:09:09
Free Pascal 小明的生活非常忙碌,有时为了赶时间不得不打的.细心的他发现广州市出租车公司规定是:2.5 公里及2.5 公里以内为起步价10元,若超过2.5 公里,超过部分按每公里2.6 元收费.为了验算这
Free Pascal
小明的生活非常忙碌,有时为了赶时间不得不打的.细心的他发现广州市出租车公司规定是:2.5 公里及2.5 公里以内为起步价10元,若超过2.5 公里,超过部分按每公里2.6 元收费.为了验算这个规定,他决定自己计算车费.
输入
输入一个实数,表示小明的乘坐路程
输出
输出一个整数,表示总共的车费.如果路费为小数,则四舍五入到个位.
样例输入
5.8
样例输出
19
Free Pascal 小明的生活非常忙碌,有时为了赶时间不得不打的.细心的他发现广州市出租车公司规定是:2.5 公里及2.5 公里以内为起步价10元,若超过2.5 公里,超过部分按每公里2.6 元收费.为了验算这
var
x,s:real;
begin
readln(s);
x := 10;
if s > 2.5 then
begin
\x09 s := s - 2.5;
\x09 x := x + s * 2.6;
\x09end;
writeln(x:0:0);
end.
Free Pascal 小明的生活非常忙碌,有时为了赶时间不得不打的.细心的他发现广州市出租车公司规定是:2.5 公里及2.5 公里以内为起步价10元,若超过2.5 公里,超过部分按每公里2.6 元收费.为了验算这
Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal?Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal?
急求free pascal错误表本人急需要free pascal错误表,一定是要带中文的,所用的free pascal版本为1.0.6,一定要是free pascal,而不是turbo pascal或者其他的
free pascal常见语句
求几道 初学 free pascal
free pascal 黑洞6174
free pascal如何计算圆的周长与面积
pascal语言编程问题（free pascal求1—N中的素数的个数.(1
Pascal 也分 Turbo Pascal 和 Free Pascal 的 推荐的三种语言是 Free Pascal ,Lazarus ,dec-c++ 上面是从知道里复制来的.请问,Delphi7和里面说到的Turbo Pascal和Free Pascal可以说是什么关系呢?Free Pascal ,Lazarus ,dec-
free pascal怎样产生随机数
free pascal习题某本书从1开始,小明算了算,总共出现了202个数1,求书有多少页
Free pascal 所有能被5整除的四位数.求每步的解释.
Free Pascal语言.求10个数的最大值和最小值,我们循环语句的作业,帮看下,
Free Pascal怎样求长方体的体积和圆的面积?
free pascal中write 和write in的用法分别是怎么用的
求由整数a的各位数字构成的最大整数.free pascal
free pascal竞赛如何骗分?我们就要比赛了,老师说做不来的题要骗分,
用free pascal编程：输入两个数,求他们的最大公因数和最小公倍数