1018:奇怪的信 分数: 1

题目描述

有一天, 小明收到一张奇怪的信, 信上要小明计算出给定数各个位上数字为偶数的和。
例如: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.
阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/jing1223639316/article/details/46826555
个人分类: 编程
上一篇1016:计算利息 分数: 1
下一篇1019:石头剪子布 分数: 1
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭