phuthcsqsđã bình luận lúc 10, Tháng 5, 2026, 15:25
program DigitalRoot;
var
s: string;
i: integer;
sum: longint;
begin
readln(s);
sum := 0;
for i := 1 to length(s) do
sum := sum + (ord(s[i]) - ord('0'));
if sum = 0 then
writeln(0)
else
writeln(1 + (sum - 1) mod 9);
end.
Bình luận
program DigitalRoot; var s: string; i: integer; sum: longint; begin readln(s); sum := 0; for i := 1 to length(s) do sum := sum + (ord(s[i]) - ord('0'));
if sum = 0 then writeln(0) else writeln(1 + (sum - 1) mod 9); end.