Anteckningsblock
Skapa
Senast
Om
Tweet
abundant
Av eeelakamarcus, 2 År sen, skriven i C.
URL
http://anteckningsblock.se/view/20747002
Ladda ner
eller
Se i råformat
—
Expandera
så den täcker din webbläsare |
Ändra utseende
#include "stdio.h"
#include "stdlib.h"
#include "string.h"
#define MAXAB = 28123
int
is_bundant
(
)
;
int
div_sum
(
)
;
int
has_abundantsum
(
)
;
int
main
(
)
{
int
a;
int
i=
0
,q=
0
;
for
(
a=
28123
;a>
0
;a--
)
{
if
(
!has_abundantsum
(
a
)
)
{
q += a;
i++;
}
}
printf
(
"
\n
EOC
\n
q: %d
\n
"
, q
)
;
}
int
is_abundant
(
int
m
)
{
if
(
div_sum
(
m
)
>m
)
{
return
1
;
}
return
0
;
}
int
div_sum
(
int
m
)
{
int
i,q=
0
;
if
(
m==
0
||m==
1
)
{
return
1
;
}
for
(
i=
1
;i<m;i++
)
{
if
(
m%i ==
0
)
{
q+=i;
}
}
return
q;
}
int
has_abundantsum
(
int
m
)
{
int
n=m
-1
;
for
(
;n>
1
;n--
)
{
if
(
is_abundant
(
n
)
&&is_abundant
(
m-n
)
)
{
return
1
;
break
;
}
}
return
0
;
}
Tweet
Svara till "abundant"
Här kan du skicka in ett svar på anteckningen ovanför
Namn
Vad heter du?
Titel
Ge din anteckning en titel.
Språk
Vilket språk är din anteckning skriven i?
C
CSS
C++
HTML (4 Strict)
Java
Perl
PHP
Python
Ruby
Plain Text
-----------------
ASM (Nasm Syntax)
XHTML
Actionscript
ADA
Apache Log
AppleScript
AutoIT
Bash
BptzBasic
C for Macs
C#
coldfusion
Delphi
Eiffel
Fortran
FreeBasic
GML
Groovy
Inno
Java 5
Javascript
LaTeX
mIRC
MySQL
NSIS
Objective C
OCaml
OpenOffice BASIC
Orcale 8 SQL
Pascal
PL/SQL
Q(uick)BASIC
robots.txt
Scheme
SDLBasic
Smalltalk
Smarty
SQL
TCL
VB.NET
Visual BASIC
Winbatch
XML
z80 ASM
Anteckning
Klistra in din anteckning här
#include "stdio.h" #include "stdlib.h" #include "string.h" #define MAXAB = 28123 int is_bundant(); int div_sum(); int has_abundantsum(); int main(){ int a; int i=0,q=0; for(a=28123;a>0;a--){ if(!has_abundantsum(a)){ q += a; i++; } } printf("\nEOC\nq: %d\n", q); } int is_abundant(int m){ if(div_sum(m)>m){ return 1; } return 0; } int div_sum(int m){ int i,q=0; if(m==0||m==1){ return 1; } for(i=1;i<m;i++){ if(m%i == 0){ q+=i; } } return q; } int has_abundantsum(int m){ int n=m-1; for(;n>1;n--){ if(is_abundant(n)&&is_abundant(m-n)){ return 1; break; } } return 0; }
Spamskydd
För att slippa spam vill vi att du fyller i texten till höger
Privat
Privata anteckningar visas inte i listan för senaste anteckningarna.
Privat
Ta bort efter
När ska din anteckning tas bort?
Spara i all oändlighet
30 Minuter
1 Timme
6 Timmar
12 Timmar
1 Dag
1 Vecka
4 Veckor
Avancerat
Kopiera länk automatiskt
Kopia länken till ditt clipboard automatiskt?
Kopiera
Kom ihåg mig
Kom ihåg mina inställningar till nästa gång?
Kom ihåg mig
Skapa