几个pascal问题1、统计字符(stat.pas)输入若干个由“0”和“1”组成的字符串，统计字符“1”的个数。【输入

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/11/16 13:11:23

几个pascal问题
1、统计字符(stat.pas)
输入若干个由“0”和“1”组成的字符串，统计字符“1”的个数。
【输入】
若干行，“0”和“1”的字符(不超过10000个)；
【输出】
输出其中为“1”的字符个数
【样例】
stat.in
0101110
101
stat.out
6
2. 最大公约数(pact.pas)
输入n(n

因为本人时间有限，所以我用10分钟帮你解决了D1个问题。
program stat;
var
ch:char;
i:longint;
fin,fout:text;
begin
i:=0;
assign(fin,'stat.in');
reset(fin);
assign(fout,'stat.out');
rewrite(fout);
while not(eof(fin)) do
begin
read(fin,ch);
if ch='1' then i:=i+1;
end;
writeln(fout,i);
close(fin);
close(fout);
end.
我的邮箱：jack_lvzheng@163.com