12 lines
282 B
Text
12 lines
282 B
Text
|
procedure main()
|
||
|
|
S := []
|
||
|
|
writes("Enter 11 numbers: ")
|
||
|
|
read() ? every !11 do (tab(many(' \t'))|0,put(S, tab(upto(' \t')|0)))
|
||
|
|
every item := !reverse(S) do
|
||
|
|
write(item, " -> ", (400 >= f(item)) | "overflows")
|
||
|
|
end
|
||
|
|
|
||
|
|
procedure f(x)
|
||
|
|
return abs(x)^0.5 + 5*x^3
|
||
|
|
end
|