source code clone download copy to clipboard report bug / make suggestion

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure main ()
local X,Y,wynik
   X := read()
   Y := read()
 
wynik := Y/25
wynik := Y-X-wynik
wynik := wynik*100/X
 
 
write(real(wynik))
 
end

clone download copy to clipboard

Translating:
prog.icn:
  main
No errors
Linking:

• upload with new input
  You have reached a limit of free submissions this month.
  You cannot send submissions this month anymore because of exceeding your monthly limit. Please recharge your account.
  
• # 2:   hide show   clone   input   253 days 19 hours ago    Success

  result: Success     time: 0.01s    memory: 5052 kB     returned value: 0

  input:

  40.00
  50.00

  output:

  20.0
  
• # 1:   hide show   clone   input   253 days 19 hours ago    Success

  result: Success     time: 0.01s    memory: 5052 kB     returned value: 1

  input: no
  output: no
  stderr:

  Run-time error 102
  File prog.icn; Line 6
  numeric expected
  offending value: &null
  Traceback:
  main()
  {&null / 25} from line 6 in prog.icn