pascal语言 编写一个程序
pascal语言 编写一个程序
日期：2016-05-09 10:33:34 人气：1
1.思路：用一个字符串数组储存输入的数据，并分别输出。
程序：
Var
a:array[1..3]of string;
i:integer;
Begin
For i:=1 to 3 do
Readln(a[i]);
For i:=1 to 3 do
Write(a[i][i]);
End.
2.思路：读入数据，存入字符串变量a中，校验a的值是否符合要求，然后再将a的ascii码求出，输出相邻的五个。
程序：
Var
a:char;
i