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

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

Viết một bình luận