Bài 19. Thư viện chương trình con chuẩn

Nguyễn Chơn Nhân

http://vinhdinhcoder.net/Problem/Details/5193

Nguyễn Chơn Nhân
28 tháng 3 2020 lúc 9:09

code map thôi đủ mệt rồi =))

Khách vãng lai đã xóa
Nguyễn Chơn Nhân
30 tháng 3 2020 lúc 8:40

chán mí bạn ghê á!!!!

uses math;
var n,i:longint;
s:int64;
f:array[-10..1000000] of int64;
procedure dq(n:longint);

begin
if n<=1000000 then
begin
s:=s+f[n];
exit;
end
else
begin
dq(n div 2);
dq(n div 3);
dq(n div 4);
end;
end;
begin
assign(input,'dprc.inp');reset(input);
assign(output,'dprc.out');rewrite(output);
for i:=1 to 1000000 do
begin
f[i]:=max(i,f[i div 2]+f[i div 3]+f[i div 4]);
//write(f[i],' ');
end;
while not seekeof do
begin
readln(n);
s:=0;
dq(n);
writeln(s);
end;
end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Giagg
Xem chi tiết
Ng Ọc
Xem chi tiết
Ngọc Ánh
Xem chi tiết
Thần thú bành
Xem chi tiết