五个字符什么组成

五个字符什么组成

var
a:array[1..100] of char;
i,j,k:longint;
ch:char;
st:string;
begin
write('1?,2?');
readln(k);
if k=1 then
begin
for i:=1 to 5 do
begin
read(ch);
a[i]:=ch;
end;
for i:=1 to 5 do write(a[i]);
end;
if k=2 then
begin
readln(st);
writeln(st);
end;

end.

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/f7v22222m2smp8vs4s4.html