Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Thị Ngọc Hà

Nhập vào 1 số nguyên dương a.

a) Cho biết a là số có mấy chữ số.

b) Cho biết tổng các chữ số của a.

c) Ta gọi số đối xứng với a là số nguyên dương thu được từ a bằng cách: đảo ngược thứ tự các chữ số của a. Hãy in ra số đối xứng với số a.

Help me!!!!!

Đoàn Xuân Sơn
5 tháng 10 2018 lúc 22:52

var

i,n,a,s,d:integer;

s1:lonint;

begin

write(' nhap a : ); readln(a);

s1:=0;s:=0;

while a <> 0 then

begin

s:= s + a mod 10;

a:= a div 10;

n:= n +s;

inc(d);

if s1 = 0 then s1:= s1 + s else

s1:= s1 * 10 + s;

s:=0;

end;

writeln(' chu so :',d);

writeln(' tong : ',n);

write(' dao nguoc: ',s1);

readln

end.

Đoàn Xuân Sơn
5 tháng 10 2018 lúc 22:53

lonint bạn sửa lại longint nhé

Nguyễn Thị Ngọc Hà
5 tháng 10 2018 lúc 16:06

khocroikhocroikhocroi


Các câu hỏi tương tự
Nguyễn Tường
Xem chi tiết
Phan Đức Duy
Xem chi tiết
Cao Phạm Hà Anh
Xem chi tiết
phamthiminhanh
Xem chi tiết
Nguyễn Công Vinh
Xem chi tiết
duy lê
Xem chi tiết
duyy
Xem chi tiết
nguyen phuong chi
Xem chi tiết
Trần Ngọc Hảo
Xem chi tiết