P语言：从键盘输入一串字符串，统计该字符串中出现字符’z’和’9’的个数。（提示：string类型）

计算1—50中既不能被3整除也不能被4整除的所有整数之和。（参考答案：675） 输入一个不大于32000的正整数，求出这个数是几位数。（提示：取一位→统计→丢一位，用while语句）
打印1到100的数，每行打印十个数。 输入十个整数，统计大于0的数的个数。
编一程序计算两个日期之间的天数。
求1000内的素数（素数就是只能被1和它自己本身整除，素数比如：2、3、5、7……）。

var s:string;
i,nz,n9:integer;
begin
readln(s);
nz:=0; n9:=0;
for i:=1 to length(s) do
if s[i]='z' then inc(nz) else if s[i]='9' then inc(n9);
writeln('z:',nz,' 9:',n9);
end.

var x,n:integer;
begin
readln(x);
write(x);
n:=0;
repeat
inc(n);

x:=x div 10;
until x=0;
writeln(' has ',n,' digits.');
end.

算不出来啊 再看看别人怎么说的。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息