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
By Hadley
By Hadley
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
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.
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.