UC知道pascal 解题报告（很基础的题。。本人菜鸟一个。。望详解）
来源：百度知道 编辑：UC知道 时间：2024/06/19 00:13:52
输入数字字符串，以“#”结束，统计奇偶个数各位多少。
程序
program count(input,output)
var a:char;
b:integer;
begin
read(a) c:=0 d:=0
while a<>'#'do
b:=(a) if(a)odd(b) ture then c=c+1
else d=d+1
read(a)
write(c,d)
end.
麻烦大家帮我看看，程序写的有没有问题。。写一下结题报告。。。
急求！！！谢谢
那结题报告呢。。是什么呢。。。
我完全不理解地说。。
谢谢你了。
程序
program count(input,output)
var a:char;
b:integer;
begin
read(a) c:=0 d:=0
while a<>'#'do
b:=(a) if(a)odd(b) ture then c=c+1
else d=d+1
read(a)
write(c,d)
end.
麻烦大家帮我看看，程序写的有没有问题。。写一下结题报告。。。
急求！！！谢谢
那结题报告呢。。是什么呢。。。
我完全不理解地说。。
谢谢你了。
错了
错光把......
我给你编
var
s:string;
j,o,i,l,c:integer;
begin
readln(s);
i:=1;
j:=0;
o:=0;
while i=length(s)do
begin
val(s[i],l,c);
if l mod 2=0 then
o:=o+1
else
j:=j+1;
end;
write(j,' ',o);
end.