program p; uses crt; var n,f:longint; s:string; function timfi(n:longint):longint; var f1,f2:longint; begin f1:=1; f2:=1; while f1+f2<= n do begin f2:=f1+f2; f1:=f2-f1; end; exit(f2); end; begin clrscr; readln(n); repeat f:=timfi(n); write(f:5); n:=n-f; until n=0; 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!
program p;
Trả lờiXóauses crt;
var n,f:longint;
s:string;
function timfi(n:longint):longint;
var f1,f2:longint;
begin
f1:=1; f2:=1;
while f1+f2<= n do
begin
f2:=f1+f2;
f1:=f2-f1;
end;
exit(f2);
end;
begin
clrscr;
readln(n);
repeat
f:=timfi(n);
write(f:5);
n:=n-f;
until n=0;
readln;
end.
Xét số nguyên dương X và gọi S là tổng tất cả các ước dương của 2004X .
Trả lờiXóaCần tính phần dư của S cho 29. Ví dụ, với X=1, các ước dương của 20041 là 1, 2, 3, 4, 6, 12, 167, 334, 501, 668, 1002 và 2004. Do đó S = 4704 và số dư của S chia cho 29 là 6.
Input: Gồm nhiều bộ test, mỗi bộ là một số nguyên X (1 ≤ X ≤ 107). Bộ test với X = 0 để kết thúc chương trình và không cần xử lý.
Output: Với mỗi bộ test, in ra một kết quả của số dư S chia cho 29 trên 1 dòng.
Thầy giúp em thuật toán bài này với. em cảm ơn thầy
Thay chiu
Trả lờiXóa