/*
2022年4月14日17点45分
题目：一个数如果恰好等于它的因子之和，这个数就称为"完数"。例如6=1＋2＋3.编程找出1000以内的所有完数。
*/
#include <iostream>
using namespace std;
bool perfect(int n)
{
int sum = 0, j = n;
while (j != 1)
......................
阅读全部
|
StarLiver
贴于 2022年4月14日 17:45
hide
bbsi
print("我在中国学Python\n")
# 练习一下循环的使用
for i in range(1, 21):
print(f"我爱编程中国 {i} 次")
阅读全部
|
kts168
贴于 2022年4月14日 11:25
hide
bbsi
weekday=["Sunday","Monday","Tuesday","Wednesday","Thursday", "Friday","Saturday"]
days=0
m_day=[31,28,31,30,31,30,31,31,30,31,30,31]
for i in range(2020):
if i%400 or (i%4==0 and i%100!=0):
days+=366
else:
days+=365
for k in range(11):
days+=m_day[k]
t_days=days+18+1 #2020-11-18
print(t_days%7)
......................
阅读全部
|
jywzf
贴于 2022年4月13日 20:43
hide
bbsi
/*
2022年4月12日18点00分
程序作用：求两个数的最大公因数和最小公倍数
*/
#include <iostream>
using namespace std;
int max(int n, int m)
{
int a;
if (n < m) a = m;
......................
阅读全部
|
StarLiver
贴于 2022年4月12日 17:59
hide
bbsi
/*
2022年4月12日16点32分
程序作用：根据分数，反馈等级。90~100分为A，60~89为B，60以下为C。
*/
#include <iostream>
using namespace std;
int main()
{
int score;
cin >> score;
......................
阅读全部
|
StarLiver
贴于 2022年4月12日 16:32
hide
bbsi
/*
2022年4月12日 16点26分
程序作用：输入一个正整数，将这个正整数分解质因数
*/
#include <iostream>
using namespace std;
int main()
{
int num;
cin >> num;
......................
阅读全部
|
StarLiver
贴于 2022年4月12日 16:26
hide
bbsi
/**
* 【程序8】
* 题目：输出9*9口诀。
* 程序分析：分行与列考虑，共9行9列，i控制行，j控制列。
*/
#include<stdio.h>
int main() {
int i,j,result;
printf("\n");
for (i=1;i<10;i++) {
......................
阅读全部
|
我想初学编程
贴于 2022年4月12日 14:11
hide
bbsi
#include <stdio.h>
double jc(int o);
int main (void)
{
double s,e=1;
int i,n;
scanf("%d",&n);
if(n>=0&&n<=1000){
for(i=1;i<=n;i++)
{
s=jc(i);
e=e+1.0/s;
......................
阅读全部
|
elhut
贴于 2022年4月5日 21:14
hide
bbsi
/**
* 【程序25】
* 题目：求1+2!+3!+...+20!的和。
* 分析：此程序只是把累加变成了累乘。
*/
#include <stdio.h>
void main(){
int b = 1, i , j ;
float sum = 0;
for ( j = 2 ; j <= 20; j++) {
......................
阅读全部
|
代码之光
贴于 2022年4月5日 15:43
hide
bbsi
Option Explicit
Dim JScript, CString, File, Control, System, NetWork '定义线程级变量 '每个线程不同
Dim Window, VBSlibrary
Dim HttpProgress
Const IsDebug = 0
Const Version = "0.0.0.7"
Sub Main()
If Globals("App").PrevInstance Then
Dim ws, WMI, Process
Set ws = CreateObject("wscript.shell")
ws.SendKeys "{HOME}"
Set WMI = GetObject("WinMgmts:")
......................
阅读全部
|
王宇577
贴于 2022年4月5日 08:52
hide
bbsi