各位大侠帮帮忙，我错哪了？
pascal单词统计
答案:5 悬赏:70 手机版
解决时间 2021-08-16 23:51
- 提问者网友：焚苦与心
- 2021-08-16 07:31
最佳答案
- 五星知识达人网友：琴狂剑也妄
- 2021-08-16 08:22
多了begin和end删了就行
全部回答
- 1楼网友：老鼠爱大米
- 2021-08-16 12:49
repeat语法错误
真确语法：
repeat
语句；
until 条件；
- 2楼网友：酒安江南
- 2021-08-16 11:22
初学者？好奇怪的程序！repeat下面的begin去掉，until下面的end去掉。初学者？好奇怪的程序
- 3楼网友：荒野風
- 2021-08-16 10:01
这个不能像你那样读，要用while not eoln do read(ch);来读，意思是如果没有到行末就继续读入；然后程序就参照楼上吧。。。
- 4楼网友：玩家
- 2021-08-16 08:49
VAR CH:CHAR;
SUM:INTEGER;
BEGIN
READ(CH);SUM:=0;
WHILE not eoln DO
BEGIN
IF UPCASE(CH)IN['A'..'Z']
THEN BEGIN
INC(SUM);
WHILE (UPCASE(CH)IN['A'..'Z']) DO READ(CH);
END
ELSE READ(CH);
END;
WRITELN(SUM);
END.
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯