vara:array[1..100]ofchar;i,j,k:longint;ch:char;st:string;beginwrite('1?,2?');readln(k);ifk=1thenbeginfori:=1to5dobeginread(ch);a[i]:=ch;end;fori:=1to5dowrite(a[i]);end;ifk=2thenbeginreadln(st);writeln(st);end;end.
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024