{VERSION 5 0 "IBM INTEL NT" "5.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "_cstyle7" -1 203 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 } {CSTYLE "_cstyle4" -1 204 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 } {CSTYLE "_cstyle5" -1 206 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 } {CSTYLE "_cstyle6" -1 210 "Courier" 1 12 255 0 0 1 2 1 2 2 1 2 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "_psty le8" -1 205 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "_pstyle7" -1 206 1 {CSTYLE " " -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "_pstyle6" -1 209 1 {CSTYLE "" -1 -1 "Courier" 1 12 255 0 0 1 2 1 2 2 1 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE " _pstyle5" -1 210 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "_pstyle9" -1 211 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }} {SECT 0 {EXCHG {PARA 210 "" 0 "" {TEXT 206 3 "01." }{TEXT 206 0 "" }}} {EXCHG {PARA 209 "> " 0 "" {MPLTEXT 1 210 18 "rnd:=rand(1..100):" } {MPLTEXT 1 210 0 "" }{MPLTEXT 1 210 1 "\n" }{MPLTEXT 1 210 29 "liste:= [seq(rnd(),i=1..100)];" }{MPLTEXT 1 210 0 "" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%&listeG7`q\"##)\"#r\"#)*\"#k\"#x\"#R\"#')\"#p\"#A\"#5 \"#cF)\"#e\"#h\"#vF,\"#<\"#i\"\")\"#]\"#()\"#**\"#nF/\"#uF&F3F:F;\"#V \"##*\"#%*\"\"\"\"#7F+\"#9\"#@\"#X\"#mF=\"#'*F3F/F2\"#$)\"#$*FA\"#yF7 \"#OF5\"#\\\"\"%\"#CFEF;\"#!*\"#QF1\"$+\"\"#&*\"#H\"#;F0F6\"#_\"#jF(\" #*)F " 0 "" {MPLTEXT 1 210 51 "ma p(x->x^2,select(type,map(sqrt,liste),'integer'));" }{MPLTEXT 1 210 0 " " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7+\"#kF$\"\"\"\"#O\"#\\\"\"%\"$+\" \"#;F%" }}}{EXCHG {PARA 210 "" 0 "" {TEXT 206 7 "03./04." }{TEXT 206 0 "" }}}{EXCHG {PARA 209 "> " 0 "" {MPLTEXT 1 210 13 "posliste:=[]:" } {MPLTEXT 1 210 0 "" }{MPLTEXT 1 210 1 "\n" }{MPLTEXT 1 210 30 "for i f rom 1 to nops(liste) do" }{MPLTEXT 1 210 0 "" }{MPLTEXT 1 210 1 "\n" } {MPLTEXT 1 210 36 " if type(sqrt(liste[i]),'integer') " }{MPLTEXT 1 210 0 "" }{MPLTEXT 1 210 1 "\n" }{MPLTEXT 1 210 36 " then posliste: =[op(posliste),i];" }{MPLTEXT 1 210 0 "" }{MPLTEXT 1 210 1 "\n" } {MPLTEXT 1 210 9 " end if;" }{MPLTEXT 1 210 0 "" }{MPLTEXT 1 210 1 " \n" }{MPLTEXT 1 210 7 "end do;" }{MPLTEXT 1 210 0 "" }{MPLTEXT 1 210 1 "\n" }{MPLTEXT 1 210 9 "posliste;" }{MPLTEXT 1 210 0 "" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#7+\"\"%\"#7\"#L\"#]\"#_\"#`\"#g\"#j\"#!*" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{PARA 206 "" 0 "" {TEXT 204 0 "" }}{PARA 206 "" 0 "" {TEXT 204 0 "" }}{PARA 205 "" 0 "" {TEXT 203 0 "" }}{PARA 211 "" 0 "" {TEXT -1 0 "" }}}{MARK "1 0 0" 0 } {VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }