用ferr pascal做:输入一个五位数,去掉千位和百位,组成一个新的数字。 用ferr pasc

来源：百度知道 编辑：UC知道 时间：2024/06/15 19:35:35
小学三年级的作业。比如输入：12345 则输出：145

我想你说得应该是Free Pascal吧
直接当成字符串处理好了
程序如下：
program ex1;
var
s:string;
begin
readln(s);
s:=copy(s,1,1)+copy(s,4,2);
write(s);
end.
当成数字也可以
程序如下；
program ex1;
var
s:longint;
begin
read(s);
write(s div 10000,s mod 100);
end.
当然这样也可以
program ex1;
var
s:longint;
begin
read(s);
s:=(s div 10000)*100+(s mod 100);
write(s);
end.
挑你看得懂的好了