Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
2
var n , s: integer; begin n:=0; s:=1000; while s>=100 do begin s:=s-2; n:=n+1; end; write (n) end.
run
|
edit
|
history
|
help
0
funcion esprimo con boolean
test29
Подсчёт количества единичных битов в десятичном числе от 0 до 15
DOKIMH-2
Hello World
Ejercicio SQRT
programme 1
test
08 Ariketa WHILE
practica 11 ejercicio 2