Mn giúp em với ạ! nhập số A,,tính tổng các chữ số lẻ của số A vừa nhập

0 bình luận về “Mn giúp em với ạ! nhập số A,,tính tổng các chữ số lẻ của số A vừa nhập”

1. var A,i,s : integer;

   begin

   writeln(‘nhap gia tri cua A:’);

   readln(A);

   s:=0

   for i:=1 to A do if (i mod 2 =0) then s:=s+i;

   writeln(‘tong cua cac so chan tu 1 den A la=’,s);

   readln;

   end.

   Bình luận

2. uses crt;
   var a,s:longint;
   begin
   clrscr;
      write(‘A=’);readln(a);
      s:=0;
      repeat
         if (a mod 10)mod 2=1 then inc(s,a mod 10);
         a:=a div 10;
      until a=0;
      writeln(‘Tong cac chu so chia le cua so A: ‘,s);
   readln
   end.

   Bình luận