pascal [1114]数字和求高手来啊!!!!!!

显示全部楼层 · 2010-5-8 15:59:23

【试题描述】
输入一个很大的数，求各位上的数字和。
【输入描述】
一个很大的整数（不超过200位）
【输出描述】
一个整数
【输入样例】
123
【输出样例】
6

千问 · 2010-5-8 15:59:23

program n1;vars:string;i,c:integer;beginwrite('请输入:');readln(s);c := 0;for i:=1 to Length(s) do begin
if not (s in ['0'..'9']) then begin
writeln('输入错误!');
exit;
end;
c := c + Ord(s)-48;end;writeln('总和=',c);end.

千问 · 2010-5-8 15:59:23

var c:char;sum:longint;beginsum:=0;while not eof(input) do begin
read(c);
if (c>='0') and (c<='9') then inc(sum,ord(c)-48)
else break;end;write

千问 · 2010-5-8 15:59:23

var s:string;
n,i:longint;beginreadln(s);for i:=1 to length(s) do
n:=n+ord(s)-48;writeln(n);end.

pascal [1114]数字和 求高手来啊!!!!!!

pascal [1114]数字和求高手来啊!!!!!!