Posted to tcl by kotrcka at Fri Dec 20 00:08:02 GMT 2019view pretty
set vypocet [gets stdin] if {[string match ?+? $vypocet] > 0} { puts "je tam plus" } elseif {[string match ?-? $vypocet] > 0} { puts "je tam minus" } elseif {[string match ?\*? $vypocet] > 0} { puts "je tam krat" } elseif {[string match ?/? $vypocet] > 0} { puts "je tam deleno" } else { puts "nie je ni " }