by @Juan Manuel Gonzalez Ospina Fork
{"functions":[],"name":"New Program","main":{"rawId":"main","tpe":"Void","name":"main","statements":[{"@type":"Begin","id":"id_1940fd66_a910_4f8c_8076_afd4dc2a5b5d"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"n","lengthValue2":"5","id":"id_0adf40d3_44fa_47f0_be17_fd707ffa9d12","initValue":null},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"longitud","lengthValue2":"5","id":"id_895a2ad4_72a5_42b8_9622_88dd428858a9","initValue":null},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"mitad","lengthValue2":"5","id":"id_ec68d7ae_41a3_4caf_b6c3_bb8ea444c97c","initValue":null},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"minfactor","lengthValue2":"5","id":"id_95dfc2c8_ba11_419c_a185_05f3f75013aa","initValue":null},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"maxfactor","lengthValue2":"5","id":"id_001453ae_4e81_4aac_8eb6_27d1b6ca2a4e","initValue":null},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"i","lengthValue2":"5","id":"id_3e974563_9525_401b_986b_39050fca0267","initValue":null},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"j","lengthValue2":"5","id":"id_288f49fc_3702_4c95_ba29_17bf2e26e645","initValue":null},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Boolean","name":"esvampiro","lengthValue2":"5","id":"id_a2c9ef45_80f5_42c8_b2e9_4aafe1c04ed1","initValue":null},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"temp","lengthValue2":"5","id":"id_c86bfbd0_39f5_4d8e_9f1b_af72f8ce268c","initValue":null},{"@type":"Input","name":"n","id":"id_f99f7e03_2286_4ec5_80e4_72f5c13ef002","prompt":null},{"@type":"Assign","name":"temp","id":"id_bca61bf4_c1c7_4776_adb3_d6eeb1e82a9b","value":"n"},{"@type":"Assign","name":"longitud","id":"id_fcc34ce8_50cf_43fb_b3b3_8b2738958ac1","value":"0"},{"condition":"temp > 0","@type":"While","id":"id_7b0ac0bf_a8d6_403e_93cb_46f7583ae1f5","body":{"statements":[{"@type":"Assign","name":"longitud","id":"id_ea89dffe_3ee5_43f4_90fe_b39e2b5957c1","value":"longitud + 1"},{"@type":"Assign","name":"temp","id":"id_715902da_a4af_4fea_9f81_ad4a1d31c5dd","value":"temp / 10"}],"id":"id_824a1d4f_9a8a_41f7_a3ac_b035845ad22b"}},{"falseBlock":{"statements":[],"id":"id_62163e85_90df_4b25_af4f_490a2a697765"},"trueBlock":{"statements":[{"newline":true,"@type":"Output","id":"id_99730242_37ed_4714_8b2f_d7f0859ed376","value":"\"No es vampiro (dígitos impares)\""}],"id":"id_2d5285db_60f5_4b36_a8f7_1b66e234e082"},"condition":"longitud % 2 != 0","@type":"If","id":"id_3a624899_1a35_47a0_a593_1110ee6aa1c9"},{"@type":"Assign","name":"mitad","id":"id_ba8a6e12_c788_43b5_88ea_793278c075c5","value":"longitud / 2"},{"@type":"Assign","name":"minfactor","id":"id_c4e8cfee_57b4_45f8_9233_b1b596ae746e","value":"pow(10, mitad - 1)"},{"@type":"Assign","name":"maxfactor","id":"id_34c0065c_d56c_4580_b1f6_2e309aacea1c","value":"pow(10, mitad) - 1"},{"@type":"Assign","name":"esvampiro","id":"id_8eb742bc_da56_4a9b_99b6_ce67e811e0e0","value":"false"},{"@type":"Assign","name":"i","id":"id_bf0e45f5_7071_404e_a658_64a68d644356","value":"minfactor"},{"condition":"i <= maxfactor && esvampiro == false","@type":"While","id":"id_7ab16e14_90f9_402e_97f4_f70c03063387","body":{"statements":[{"falseBlock":{"statements":[],"id":"id_399d7dae_7488_4843_89e1_d8cb660fe43b"},"trueBlock":{"statements":[{"@type":"Assign","name":"j","id":"id_a5fca5b3_99f6_4f73_b0b5_95d93188bfb1","value":"n / i"},{"falseBlock":{"statements":[],"id":"id_400eb484_bdc5_42ef_938c_94e8d4c92ed9"},"trueBlock":{"statements":[{"falseBlock":{"statements":[],"id":"id_8bd33cd1_a396_40e1_a81c_9f4f6f315b4d"},"trueBlock":{"statements":[{"falseBlock":{"statements":[],"id":"id_9e716432_81bd_4abd_af2c_e81426e258de"},"trueBlock":{"statements":[{"@type":"Assign","name":"esvampiro","id":"id_28d7e61f_0aa7_4154_ae69_06b1b0a7bf73","value":"true"},{"newline":true,"@type":"Output","id":"id_83c740ad_d371_4af4_8e08_617d7948e389","value":"\"Es un número vampiro: \" + i + \" x \" + j"}],"id":"id_d69da3ca_cf2a_432e_aaea_2159a18f7f0a"},"condition":"(i % 10 + floor(i / 10) + j % 10 + floor(j / 10)) == (n % 10 + floor(n / 10) % 10 + floor(n / 100) % 10 + floor(n / 1000))","@type":"If","id":"id_f9ca14e2_64e3_44b6_9636_33cd02c324d7"}],"id":"id_f123e755_d5a9_4e69_acd5_0a0299dc23c9"},"condition":"i % 10 != 0 OR j % 10 != 0","@type":"If","id":"id_9b5f3cba_6d94_47e5_97ff_d40c3d284365"}],"id":"id_99a4876b_a31b_4a88_a591_e3d3a6db4340"},"condition":"j >= minfactor && j <= maxfactor","@type":"If","id":"id_9340eb2e_0a4a_421c_a719_f32998ddafb1"}],"id":"id_25cdd399_4c05_4c74_83c3_ae5dc6c8c24a"},"condition":"n % i == 0","@type":"If","id":"id_d0ce6d50_e931_470c_b35f_d441fd6c9795"}],"id":"id_074acb70_0792_4221_b198_55e658cb7cad"}},{"falseBlock":{"statements":[],"id":"id_f2d9ef16_8b17_4bd2_899b_167d5d142e2f"},"trueBlock":{"statements":[{"newline":true,"@type":"Output","id":"id_76a81b4a_6cd2_45e7_9323_e108f0402e54","value":"\"No es un número vampiro\""}],"id":"id_c60d37da_3e64_4f2b_971b_c4843c26e1e7"},"condition":"esvampiro == false","@type":"If","id":"id_17bbe9dd_a6fe_4623_8a11_9d3744a1cf7d"},{"@type":"Return","id":"id_b27faef4_8726_45a4_82fe_fcf8134eba4e","maybeValue":null}],"parameters":[]},"id":"id_0d5ddbb4_b4c5_4765_af83_751d05d1a839","config":{"showDebugVars":true,"useInputPrompt":false,"echoEnteredValue":false,"showIoBtns":true,"showFunctions":false,"lang":"java","showGenCode":false},"version":"0.3","revision":216}