Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Khánh Như
Xem chi tiết
Ngô Thành Chung
23 tháng 3 2022 lúc 16:47

var n,T,m,i : byte;

       s:string;

       code:integer;

 begin 

 write('n = '); readln(n); str(n,S);

 write(n, ' có ',length(s),' chữ số');  {Hết câu a}

for i:=1 to length(S) do begin

                                     val(S[i],m,code);

                                      if m mod 2 = 0 then T:=T+m;

                                      end;

write('Tổng các chữ số chẵn của ',n,' bằng : S = ',S); {Hết câu b}

readln

end.

 

vixdarius
Xem chi tiết
Minh Lệ
27 tháng 2 2021 lúc 17:12

Program HOC24;

var i,n,d,b,t: integer;

begin

write('Nhap so tu nhien N: '); readln(n);

d:=0; t:=0;

while n<>0 do

begin

b:=n mod 10;

d:=d+1;

t:=t+b;

n:=n div 10;

end;

writeln(n,' co ',d,' chu so');

write('Tong cac chu so chu n la: ',t);

readln

end.

Nguyễn Lê Phước Thịnh
27 tháng 2 2021 lúc 18:48

*Cách khác

uses crt;

var n,i,d,x,y,t:integer;

st:string;

begin

clrscr;

write('Nhap n='); readln(n);

str(n,st);

d:=length(st);

writeln('So chu so cua ',n,' la: ',d);

t:=0;

for i:=1 to d do

  begin

val(st[i],x,y);

t:=t+x;

end;

writeln('Tong cac chu so cua ',n,' la: ',t);

readln;

end.

Nguyễn Ngọc Huyền
Xem chi tiết
Dương Minh Tiến
16 tháng 9 2015 lúc 8:45

Các số là:

2035;2053;2305;2350;2503;2530;3025;3052;3205;3250;3502;3520;5023;5032;5203;5230;5302;5320

2035+2053+2305+2350+2503+2530+3025+3052+3205+3250+3502+3520+5023+5032+5203+5230+5302+5320=44563

anh chàng mưa
16 tháng 9 2015 lúc 8:44

Quá trời luôn. Bạn đánh siêu thật !

Tạ Giang Mai Anh
19 tháng 3 2016 lúc 21:24

Tinh tong sai bet .phai la 64440.

Trang
Xem chi tiết
Hoang The Kien
Xem chi tiết
Võ Thị Thu Hà
Xem chi tiết
Nguyễn Thanh Toàn
Xem chi tiết
le vu ha anh
Xem chi tiết
nguyễn lan hương
Xem chi tiết