Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
checks if a number is exceptional
//fpc 3.0.0 uses crt; var n:integer; function szamjegyossz(m:integer):integer; var s:integer; begin s:=0; while m<>0 do begin s:=s+ m mod 10; m:=m div 10; end; szamjegyossz:=s; end; function kulonlegese(n:integer):boolean; var i:integer; b:boolean; begin i:=1; b:=false; while (i<=n) and (b=false) do begin if n=szamjegyossz(i)+i then b:=true; inc(i); end; kulonlegese:=b; end; begin readln(n); if kulonlegese(n) then write('true') else write('false'); end.
run
|
edit
|
history
|
help
0
BubbleSor (slimst)
Вычисление e^x с помошью ряда Тейлора
0, pi, pi/4
practica 9 ejercicio 1
uuu
practica 3 ejercicio B7
123456
zad27-notoptimized
fmke
Для Лехи -1