Uses crt; Var n,i:longint; function xts(a:char):longint; Var b:longint; Begin Val(a,b); exit(b); end; function test(a:longint):boolean; Var s:string; tong:longint; Begin tong:=0; str(a,s); tong:=tong+xts(s[1])+xts(s[2])+xts(s[3]); If tong=n then exit(true) else exit(false); end; Begin readln(n); For i:=100 to 999 do If test(i) then Write(i,' '); readln; end.
Dùng nick gmail để bình luận. Nếu lần đầu tiên bạn làm điều này thì hệ thống sẽ chuyển bạn sang trang blogger và hỏi bạn chọn tên hiển thị là gì. Bạn hãy nhập tên hiển thị rồi ok là được. Những lần bình luận sau hệ thống sẽ không hỏi nữa. Cảm ơn!
Uses crt;
Trả lờiXóaVar n,i:longint;
function xts(a:char):longint;
Var b:longint;
Begin
Val(a,b);
exit(b);
end;
function test(a:longint):boolean;
Var s:string;
tong:longint;
Begin
tong:=0;
str(a,s);
tong:=tong+xts(s[1])+xts(s[2])+xts(s[3]);
If tong=n then exit(true) else exit(false);
end;
Begin
readln(n);
For i:=100 to 999 do
If test(i) then Write(i,' ');
readln;
end.
program tongchuso;
Trả lờiXóafunction tong(n:word): word;
var s: string;x,y,z,i: word;
begin
str(n,s);
val(s[1],x,i);
val(s[2],y,i);
val(s[3],z,i);
tong:=x+y+z;
end;
var a,i: word;
begin
readln(a);
for i:=100 to 999 do
if tong(i)=a then write(i,' ');
readln;
end.