by @Eduardo Alvarez Echavarria Fork
{"functions":[],"name":"Número Vampiro","main":{"rawId":"main","tpe":"Void","name":"main","statements":[{"@type":"Begin","id":"id_a82b904a_a8df_4237_bcea_ba8cdd41b9f8"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"numero","lengthValue2":"5","id":"id_74f5625c_f458_4398_b56e_ca6c7a1ea033","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"String","name":"textoNum","lengthValue2":"5","id":"id_8c8fcd19_c164_428e_98e9_7dddec3aad65","initValue":null},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"digitosNum","lengthValue2":"5","id":"id_84a7a9a1_dfb2_4a73_8e75_64a577fbf7c4","initValue":null},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"mitad","lengthValue2":"5","id":"id_e4258fd6_7de9_456b_8a7f_b7595d8b5801","initValue":null},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"min","lengthValue2":"5","id":"id_fc1683f3_b1c2_4f75_b88f_9880dcc5482f","initValue":null},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"max","lengthValue2":"5","id":"id_c3a81c0e_4afb_468d_ae45_45c756199954","initValue":null},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"factor1","lengthValue2":"5","id":"id_960ff697_7b0d_42de_b5c1_08e5a819522f","initValue":null},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"factor2","lengthValue2":"5","id":"id_478c0950_3219_48bb_b831_e1f11c5f1ea6","initValue":null},{"lengthValue":-1,"@type":"Declare","lengthValue1":"10","tpe":"IntegerArray","name":"conteo","lengthValue2":"5","id":"id_d86bc2fb_9803_4849_b048_e006dacb2abb","initValue":null},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"temp","lengthValue2":"5","id":"id_c32ca5af_cd98_463d_962d_e5f20e23d395","initValue":null},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"ultimoDig","lengthValue2":"5","id":"id_114886f1_ae6e_4f65_9fd6_14cb5b954345","initValue":null},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Boolean","name":"mismosDig","lengthValue2":"5","id":"id_510ae2db_8876_42bf_9356_76bb81c72c9c","initValue":null},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Boolean","name":"esVamp","lengthValue2":"5","id":"id_7da56bc9_e9e1_40de_9e38_783713149497","initValue":"false"},{"@type":"Input","name":"textoNum","id":"id_068df322_3992_45e1_aee2_b70ad1f0d904","prompt":"Ingrese un número entero positivo:"},{"@type":"Assign","name":"digitosNum","id":"id_5e7c45cc_d351_422d_96a7_01b9d867f6c3","value":"length(textoNum)"},{"falseBlock":{"statements":[],"id":"id_1b924b62_fac1_47c9_8a3d_bda1979dfe43"},"trueBlock":{"statements":[{"@type":"Assign","name":"numero","id":"id_946c69dd_f46a_4b5f_9d60_c61ff253720a","value":"string2int(textoNum)"},{"@type":"Assign","name":"mitad","id":"id_fe7bd459_6427_4dac_ad39_fbffe8fac354","value":"digitosNum/2"},{"@type":"Assign","name":"min","id":"id_8f4f7fac_14a0_4dd4_94f0_18432f967c19","value":"pow(10,mitad-1)"},{"@type":"Assign","name":"max","id":"id_02feaa76_0fb6_45b0_ad61_11734a03d217","value":"pow(10,mitad)-1"},{"varName":"factor1","incr":"1","@type":"ForLoop","start":"min","end":"max","id":"id_1b56581e_1d31_434e_b4e9_9f18fc40e78e","body":{"statements":[{"falseBlock":{"statements":[],"id":"id_93e440c5_7bbe_4d36_99e5_89c78c776ce5"},"trueBlock":{"statements":[{"@type":"Assign","name":"factor2","id":"id_db370e28_afd4_473d_a540_31e89b8d29d7","value":"numero/factor1"},{"falseBlock":{"statements":[],"id":"id_443f7025_9055_4c0e_8e64_0febf3e5a850"},"trueBlock":{"statements":[{"falseBlock":{"statements":[],"id":"id_334fa403_2065_47f6_b203_f6285939a6c4"},"trueBlock":{"statements":[{"varName":"i","incr":"1","@type":"ForLoop","start":"0","end":"9","id":"id_9d77a357_0a21_49ea_bfb1_5d728ec5f274","body":{"statements":[{"@type":"Assign","name":"conteo[i]","id":"id_cb40899b_ca7e_4cec_9ace_82e513a12736","value":"0"}],"id":"id_16d423c9_3fd5_4bfe_a5b2_dbdef773cad2"}},{"@type":"Assign","name":"temp","id":"id_9a9a83d2_72e8_4015_abaf_94df5a22ef19","value":"numero"},{"condition":"temp>0","@type":"While","id":"id_ed798cf3_fe05_41ce_8b19_64854a498172","body":{"statements":[{"@type":"Assign","name":"ultimoDig","id":"id_2142aab7_5bb8_4a20_aeb0_7f23a90252f3","value":"temp % 10"},{"@type":"Assign","name":"conteo[ultimoDig]","id":"id_f27696eb_07ca_4796_acfd_f0a0912ef10e","value":"conteo[ultimoDig]+1"},{"@type":"Assign","name":"temp","id":"id_7083c41d_94ba_4de0_a582_69815cb14944","value":"temp/10"}],"id":"id_90af7bb4_67f3_4d1a_857e_7acad716f6cd"}},{"@type":"Assign","name":"temp","id":"id_522d0cc3_2f27_4922_9df6_f5042847e130","value":"factor1"},{"condition":"temp>0","@type":"While","id":"id_716ef42f_6d8e_4c28_8281_fa4f0d556cd1","body":{"statements":[{"@type":"Assign","name":"ultimoDig","id":"id_40950ac4_c8b5_41f1_be1a_15fe099c27f7","value":"temp % 10"},{"@type":"Assign","name":"conteo[ultimoDig]","id":"id_e5bbd993_bde5_4c44_aedc_b15ed8718074","value":"conteo[ultimoDig]-1"},{"@type":"Assign","name":"temp","id":"id_4ed4ebaa_7b44_4025_93ae_526964c53ec5","value":"temp/10"}],"id":"id_67f45dcd_08d3_4131_94de_7f1dd5bafced"}},{"@type":"Assign","name":"temp","id":"id_6f8d9825_aff1_4354_90e9_9fdcd546b031","value":"factor2"},{"condition":"temp>0","@type":"While","id":"id_290612bf_eef0_4394_8b10_755f00fddf49","body":{"statements":[{"@type":"Assign","name":"ultimoDig","id":"id_e6335194_24a0_4acc_bf1f_24895d782b05","value":"temp % 10"},{"@type":"Assign","name":"conteo[ultimoDig]","id":"id_9234cdc9_614a_4ffd_a034_7324f1d0f6c1","value":"conteo[ultimoDig]-1"},{"@type":"Assign","name":"temp","id":"id_997f9399_8cc3_4263_9f24_73fa808345fd","value":"temp/10"}],"id":"id_af6ba94b_29a9_4c40_ad4e_09581a0e3ebd"}},{"@type":"Assign","name":"mismosDig","id":"id_f03c3ebd_aae1_40c0_9e7a_2bc7b66c926a","value":"true"},{"varName":"i","incr":"1","@type":"ForLoop","start":"0","end":"9","id":"id_1be14b60_77cd_48ef_a668_1b3edfdc415c","body":{"statements":[{"falseBlock":{"statements":[],"id":"id_29634d3e_d733_4bcb_a82c_443c52c92f6f"},"trueBlock":{"statements":[{"@type":"Assign","name":"mismosDig","id":"id_7f2c6e9b_d8bf_4a2d_831d_536d68468a10","value":"false"}],"id":"id_59ab891a_e388_472c_a354_b046ba60b06c"},"condition":"conteo[i] != 0","@type":"If","id":"id_1267cb06_a117_45d4_b993_5cfe06e3e3db"}],"id":"id_ad267819_b095_4fe0_9a85_6a4bd00772fe"}},{"falseBlock":{"statements":[],"id":"id_b3a015e5_bda1_4382_b519_b7f44e2aceae"},"trueBlock":{"statements":[{"@type":"Assign","name":"esVamp","id":"id_2fe023f6_c158_43fa_8395_6c151c3cb865","value":"true"}],"id":"id_90df6f49_33e1_48a8_9cf7_13aec1f0cfd2"},"condition":"mismosDig == true","@type":"If","id":"id_2d841939_b56c_41c7_8d8e_939772277f4f"}],"id":"id_d8acef3e_5a48_4337_815d_05721e2309c9"},"condition":"factor1 % 10 != 0 || factor2 % 10 != 0","@type":"If","id":"id_a75ba5d5_6cd5_4bd1_a9c1_2c25d94a8278"}],"id":"id_90382a7c_f5ff_4438_9f2d_641aca44cdb3"},"condition":"factor2 >= min && factor2 <= max","@type":"If","id":"id_9cc8d3d1_9c3f_48f1_90b6_fa9bb3b36860"}],"id":"id_5d8ee5bf_04a4_4cca_8dc0_68b00a982c81"},"condition":"numero % factor1 == 0","@type":"If","id":"id_223927ae_8beb_4494_8c92_519d55bfbbb9"}],"id":"id_237ea741_dbe7_4653_82d4_c1ea8038d153"}}],"id":"id_d0f36f88_b07f_422d_95f8_925b0afa2cf9"},"condition":"digitosNum % 2 == 0","@type":"If","id":"id_558b461f_76db_43f2_8420_ff1b689ff003"},{"falseBlock":{"statements":[{"newline":true,"@type":"Output","id":"id_5c759aff_8ae9_48f6_94af_a77b70319f17","value":"\"El número \" + textoNum + \" no es un número vampiro\""}],"id":"id_b228a36a_34de_4faf_831c_54076624ff2d"},"trueBlock":{"statements":[{"newline":true,"@type":"Output","id":"id_3f8c0fb3_483d_4ead_a752_e01c1bdee5f7","value":"\"El número \" + textoNum + \" es un número vampiro\""}],"id":"id_9519f28e_9368_4f4d_9c87_804575fc585c"},"condition":"esVamp == true","@type":"If","id":"id_e4201b66_ef3d_4649_9b0a_7dc7b0a8d3cf"},{"@type":"Return","id":"id_e31b0225_e3b0_43b3_b7b3_911093a2bf77","maybeValue":null}],"parameters":[]},"id":"id_263a298f_b021_44b8_9fe7_2b7fff6863f1","config":{"showDebugVars":true,"useInputPrompt":true,"echoEnteredValue":false,"showIoBtns":true,"showFunctions":false,"lang":"python","showGenCode":false},"version":"0.3","revision":1248}