请帮我做一下下面几个freePascal程序
发布网友
发布时间：23小时前
共2个回答
热心网友
时间：1分钟前
下边是我写的 没测试过 有错的估计就是少个什么标点吧。。
(1).
读入然后输出就行 用length(s)函数 求最大长度
var
s:string;
i:longint;
begin
readln(s);
for i:=length(s)-1 downto 1 do
write(s[i]);
writeln;
end;
(2). val(s,a,b):是指将字符串S转变成a，变量b用一个无用变量就行 我不知道干什么的 但是我知道没什么用
var
s:string;
i,b,c:longint;
a:array[0..9] of longint;
begin
readln(s);
for i:=1 to length(s) do
begin
val(s[i],b,c);
inc(a[b]);
end;
for i:=0 to 9 do
write(i,':',a[i]);
writeln;
end.
(3). 这个题用while来实现 知道找到第一个是‘A’的位置 和第二个是‘A’的位置 进而找出中间字符的个数和字符
var
s:string;
t,f,i:longint;
begin
readln(s);
t:=1;
while s[t]<>'A' do
inc(t);
inc(t);
f:=t;
while s[t]<>'A' do
inc(t);
t:=t-1;
writeln(f-t+1);
for i:=f to t do
write(s[i],' ');
end.
(4).第四题看不明白 是题目产生？即 输入数据产生？ 还是自己产生。。那输出什么东西。。
热心网友
时间：3分钟前
1、Var
n : longint;
Begin
readln(n);
while n>0 do
begin
write( n mod 10 );
n:=n div 10;
end;
End.
（对不起，我只会这个了）
