Thứ Bảy, 4 tháng 12, 2021

DEMTG PASCAL

var i:longint;
        n,d,s1,s:int64;
begin
        assign(input,'demtg.inp'); reset(input);
        assign(output,'demtg.out'); rewrite(output);
        readln(d,n);
        s1:=((d+1)*(d+2)) div 2;
        s:=(n+1)*s1;
        write(s);
end.

Không có nhận xét nào:

Đăng nhận xét

Lưu ý: Chỉ thành viên của blog này mới được đăng nhận xét.