Chương trình đơn giản

Asmodues

1 viết chương trình tìm tất cả các số có 3 chữ số mà tính các chữ số = tổng các chữ số

2 viết chương trình đếm số chữ số của số N

3 viết phương trình tính tổng các chữ số của số N

Tổng các chữ số của N = 8

Tran Nguyễn Đăng Dương
30 tháng 10 2020 lúc 14:27

Bài 3:

Program bai1;
uses crt;
var a,i,s,t,code:longint;
st:string;
Begin
clrscr;
write('Nhap a:'); readln(a);
str(a,st);
for i:=1 to Length(st) do
begin
Val(st[i],t,code);
s:=s+t;
end;
writeln('Tong cac chu so cua ',a,':',s);
readln;
End.

Bình luận (0)
 Khách vãng lai đã xóa
Tran Nguyễn Đăng Dương
30 tháng 10 2020 lúc 14:22

Bài 1:

Program bai1;
uses crt;
var a,b,c:integer;
Begin
clrscr;
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if a*b*c=a+b+c then write(a,b,c,' ');
readln;
End.

Bình luận (0)
 Khách vãng lai đã xóa
Tran Nguyễn Đăng Dương
30 tháng 10 2020 lúc 14:24

Bài 2:

Program bai1;
uses crt;
var a:longint;
st:string;
Begin
clrscr;
write('Nhap a:'); readln(a);
str(a,st);
write('So chu so cua ',a,':',Length(st));
readln;
End.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
Nguyễn Thị Tươi
Xem chi tiết
Trần Vi Nam Khánh
Xem chi tiết
Trần văn tuấn
Xem chi tiết
Vân Ngô
Xem chi tiết
Anh Thư
Xem chi tiết
Bảo Văn
Xem chi tiết
Hoàng lĩnh
Xem chi tiết
Thái Bảo
Xem chi tiết
Hà Phương
Xem chi tiết