Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
const fi='SODEP.INP';
fo='SODEP.OUT';
var n : longint;
f : text ;
// hàm đếm chữ số
function count_digits(n: longint) : longint;
var s : string ;
begin
str(n,s);
count_digits := length(s);
end ;
// Hàm tổng chữ số
function total_digits(n:longint):longint;
var s, lus : string ;
tg,i : longint;
begin
str(n,lus);
for i := 1 to length(lus) do
begin
val(lus[i],tg);
total_digits:= total_digits+ tg;
end ;
end ;
begin
assign(f,fi); reset(f);
read(f,n);
close(f);
//
assign(f,fo); rewrite(f);
if total_digits(n) mod count_digits(n) = 0 then write(f,'Co')
else write(f,'Khong');
close(f);
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
975
39684
498
Bạn ơi giúp mình hóa với