Bạn An có một chuỗi số N, anh ấy đố bạn tìm ra được Số cuối cùng FN (Final Number) của dãy số đó. Một FN được xác định là tổng các chữ số của số đó, sau đó lại tính tổng các chữ số của số mới tạo được cho đến khi chỉ còn 1 chữ số duy nhất. Bạn hãy tìm ra số cuối cùng đó nhé! Yêu cầu: Cho chuỗi số N, bạn hãy tìm FN của chuỗi số đó. Dữ liệu nhập: Một chuỗi số nguyên N duy nhất (1 ≤ N ≤ 10100). Dữ liệu xuất: Một số nguyên duy nhất là FN tìm được. Ví dụ: Nhập N = 29. Kết quả: 2 Fn.inp Fn.out 29 2 123456789 9 6897724282394226975594052 1
1 câu trả lời
program tongchuso;
uses crt;
var st:string;
t,i,so:integer;
begin
clrscr;
write('Nhap so: '); readln(st);
while length(st)<>1 do
begin
t:=0;
for i:=1 to length(st) do
begin
val(st[i],so);
t:=t+so;
end;
str(t,st);
end;
write(t);
readln
end.
