Nhập vào một số n nguyên dương,tính tổng các số hạng chẵn trong số n đó

0 bình luận về “Nhập vào một số n nguyên dương,tính tổng các số hạng chẵn trong số n đó”

1. uses crt;
   var s,n,k: integer;
   begin
   clrscr;

   s:=0;
   write(‘N= ‘);  readln(n);
   while n>0 do
   begin
   k:=n mod 10;

   if k mod 2=0 then s:=s+k;
   n:=n div 10;

   end;
   writeln(‘tong la: ‘,s);
   readln
   end.

   Bình luận

2. program tong_chan;

   uses crt;

   var n:longint;

         t,so:byte;

   begin

         clrscr;

         write(‘Nhap n: ‘);  readln(n);

         t:=0;

         while n>0 do

               begin

                     so:=n mod 10;

                     if so mod 2=0 then t:=t+so;

                     n:=n div 10;

               end;

         writeln(‘Tong cac chu so chan la: ‘,t);

         readln;

   end.

   Bình luận