作业帮pascal 解题报告（很基础的题..本人菜鸟一个..望详解）
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/07/07 17:15:43
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.
麻烦大家帮我看看,程序写的有没有问题..写一下结题报告...
那结题报告呢。是什么呢。
我完全不理解地说。
输入数字字符串,以“#”结束,统计奇偶个数各位多少.
程序
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.
错光把.
我给你编
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.