Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
bilete
//fpc 3.0.0 program HelloWorld; var s:string; i,c,j:integer; procedure numar; begin j:=c+1; for i:=1 to length(s) do begin dec(j); if i=j then break; end; end; begin readln(s); c:=length(s); if length(s) mod 2=1 then numar else begin c:=c+1; numar; end; j:=j-1; writeln(j); readln; end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
a
Pascal First
aaa
help me to fix this stupid thing, so tired about it
nombre_completo
Enkripsi
ariketa 01
code
Project Euler 20 - Factorial digit sum
test29
stackse - search stackoverflow differently
Please log in to post a comment.