pascal 解题报告（很基础的题..本人菜鸟一个..望详解）输入数字字符串,以“#”结束,统计奇偶个数各位多少.程序program count(input,output)var a:char;b:integer;beginread(a) c:=0 d:=0while a'#'dob:=(a) if(a)odd(b) tu
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/25 10:24:51
pascal 解题报告（很基础的题..本人菜鸟一个..望详解）输入数字字符串,以“#”结束,统计奇偶个数各位多少.程序program count(input,output)var a:char;b:integer;beginread(a) c:=0 d:=0while a'#'dob:=(a) if(a)odd(b) tu
pascal 解题报告（很基础的题..本人菜鸟一个..望详解）
输入数字字符串,以“#”结束,统计奇偶个数各位多少.
程序
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.
麻烦大家帮我看看,程序写的有没有问题..写一下结题报告...
那结题报告呢。是什么呢。
我完全不理解地说。
pascal 解题报告（很基础的题..本人菜鸟一个..望详解）输入数字字符串,以“#”结束,统计奇偶个数各位多少.程序program count(input,output)var a:char;b:integer;beginread(a) c:=0 d:=0while a'#'dob:=(a) if(a)odd(b) tu
错了
错光把.
我给你编
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.