Question

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

Answer 1

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.

Answer 2

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.

Answer 3

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.