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
1 задание
AreaTriangulo.pas
la moyenne de théo
две рядом стоящие одинаковые цифры у числа
1
считалочка03
Greetings
1
ariketa 09
LewisCableCompanyPasprogramme