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 21/07/2021 Bởi 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. Bình luận
uses crt;var a,s:longint;beginclrscr; 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);readlnend. Bình luận
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.