关闭

1018:奇怪的信 分数: 1

100人阅读 评论(0) 收藏 举报
分类:

题目描述

有一天, 小明收到一张奇怪的信, 信上要小明计算出给定数各个位上数字为偶数的和。
例如:5548,结果为12,等于 4 + 8 。
小明很苦恼,想请你帮忙解决这个问题。

输入格式

输入数据有多组。每组占一行,只有一个整整数,保证数字在32位整型范围内。

输出

对于每组输入数据,输出一行,每两组数据之间有一个空行。

样例输入

415326
3262

样例输出

12

10

我的方法:program p1018;

var a,m:ansistring;i,c:longint;n,s:int64;

begin

 while not eof do

 begin

  s:=0;

  readln(a);

  for i:=1 to length(a) do

  begin

  m:=copy(a,i,1);

  val(m,n,c);

  if n mod 2=0 then

  s:=s+n;

  end;

  writeln(s);

  writeln;

 end;

end.

老师的方法:program p1018;
var a,s:int64;
begin
 while not eof  do
  begin
   readln(a);
  s:=0;
   while a>0 do
    begin
     if a mod 2=0 then
     s:=s+(a mod 10);
     a:=a div 10;
    end;
   writeln(s);
   if not eof then writeln;
   end;
 end.
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:15112次
    • 积分:108
    • 等级:
    • 排名:千里之外
    • 原创:91篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档