关于一道pascal题目读入一个字串,删去字串中相同的字符.这道题如下编写为什么不对?program qp1765;vars:string;i,j,n:integer;beginreadln(s);n:=length(s);for i:=1 to n dofor j:=i+1 to n doif copy(s,i,1)=copy(s,j,1) then dele

关于一道pascal题目读入一个字串,删去字串中相同的字符.这道题如下编写为什么不对?program qp1765;vars:string;i,j,n:integer;beginreadln(s);n:=length(s);for i:=1 to n dofor j:=i+1 to n doif copy(s,i,1)=copy(s,j,1) then dele 几道关于pascal的题目题目分别如下：1.用字符输出一个“王”字.2.从键盘上读入小写的pascal,利用CHR（）和ORD（）函数,输出大写的PASCAL.3. 从键盘上读入一个实数,利用ROUND（）和TRUNC（）函 pascal打印数字图形读入一个整数n（n 用pascal语言做一道题读入三个整数,找出并输出其中最大的数 一道PASCAL题 读入10个数,计算它们的和、积、平方和及和的平方 一道PASCAL题 读入10个数,计算它们的和、积、平方和及和的平方我急用 急求TURBO PASCAL 急求关于TURBO PASCAL 一道要关于FOR的,另外两道一道是过程的,一道是函数的,题目可以自己编,但是要与化学有关的, 一道poj上的题目求poj2253 的pascal程序 一道关于循环结构的C语言初学者题目~.如果一个正整数的所有因子之和等于该正整数,则称这个正整数为完全数.编写程序读入n,输出不超过n的全部完全数.如6=1+2+3 28=1+2+4+7+14ps:请先写出思路,然 教我一道turbo pascal题目题目是从键盘输入一个整数X(X 不超过 10000),若X的各位数字之和为7的倍数,则打印YES',否则中打印NO用turbo pascal格式回答 pascal 程序 读入一个句子,单词之间用空格隔开 输出最长的单词,并输出这个单词的长度（使用字符串） 关于一道数学题目 做一道PASCAL题目输出2——n之间的所有素数（质数）. 一道编程题目pascal：用辗转相除法求两数的最大公约数. 用pascal 语言编写一个程序读入一系列字符,将它们分别放在英文字母、数字、其他符号三个集合中编写一个程序读入一系列字符,将它们分别放在英文字母、数字、其他符号三个集合中,统计出 Noip提高组pascal题目 给我一些pascal题目:关于深搜,广搜的越多越好 从键盘上读入一个实数,输出该实数本身、整数部分、小数部分四舍五入后的值.要求：分三行输出；输出实数本身时,格式与读入时相同；整数、小数部分在同一行输出；其它各占一行用Pascal