KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
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.
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.