by @Maria Jose Turriago Montoya Fork
{"functions":[],"name":"Numero vampiro","main":{"rawId":"main","tpe":"Void","name":"main","statements":[{"@type":"Begin","id":"id_f140b78c_a3c6_470d_bd05_a32d7c4187ae"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"n","lengthValue2":"","id":"id_76c0566b_2c69_4a36_87ba_a084aaef2603","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"d","lengthValue2":"","id":"id_45c90046_2dce_4b19_b902_f2c1d3a15f78","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"k","lengthValue2":"","id":"id_499654e2_4e5d_4292_8333_6cce4d52e63a","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"aux","lengthValue2":"","id":"id_fecb2291_40a3_4bef_82e2_338fa3bd0181","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"a","lengthValue2":"","id":"id_8032cc81_17d5_4fe8_89f4_b467f869caf5","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"b","lengthValue2":"","id":"id_b54093c2_4abe_4778_b336_fedbebe44b51","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"minimo","lengthValue2":"","id":"id_a7beea9f_8c1c_4b14_9ce6_7c1d7e4db676","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"limite","lengthValue2":"","id":"id_1f96769c_e59a_4224_8ad1_742ebde6ccb2","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"digito","lengthValue2":"","id":"id_940e26ff_8244_438c_8320_1ae77863f12f","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"cantidadN","lengthValue2":"","id":"id_c620a8f5_253e_4355_8adf_3078e0b075aa","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"cantidadFactores","lengthValue2":"","id":"id_d3e5c311_6993_497c_a893_5000e49f1135","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"copia","lengthValue2":"","id":"id_89bc0474_63a3_4c6e_8ef8_1831aeb01246","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Boolean","name":"encontrado","lengthValue2":"","id":"id_96895b83_07ca_48ba_9040_c6fb80de2130","initValue":"false"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Boolean","name":"iguales","lengthValue2":"","id":"id_cc1a0a81_7ae1_4ebf_9797_bb8fdbdd7c05","initValue":"false"},{"newline":true,"@type":"Output","id":"id_f19fe80b_1553_4a1f_91bc_1760b98d2525","value":"\"Introduce un numero entero positivo:\""},{"@type":"Input","name":"n","id":"id_9a21bd3e_1f78_4469_ad46_dddefa901f73","prompt":null},{"falseBlock":{"statements":[{"@type":"Assign","name":"aux","id":"id_174a1d1f_89c0_4c4f_92ad_e5e50b759c0e","value":"n"},{"@type":"Assign","name":"d","id":"id_8f0e7c4d_6a4f_4423_9935_bec2ed2c9096","value":"0"},{"condition":"aux > 0","@type":"While","id":"id_fd5a38b7_2da9_465c_b909_e8e719f88847","body":{"statements":[{"@type":"Assign","name":"d","id":"id_9f48f935_b572_433b_8bbb_2dcb11ec7ec2","value":"d + 1"},{"@type":"Assign","name":"aux","id":"id_57d99c74_2b01_43f4_adcc_a59e9bedef14","value":"aux / 10"}],"id":"id_67564c53_dc76_44a7_bea9_7662cc6341bc"}},{"falseBlock":{"statements":[{"@type":"Assign","name":"k","id":"id_cf97cebb_a2f4_40db_91ec_92ca56512c3f","value":"d / 2"},{"@type":"Assign","name":"minimo","id":"id_accbe22f_8863_4639_b97f_f6851722c6c3","value":"1"},{"condition":"k > 1","@type":"While","id":"id_24c095e8_b335_439b_a029_bc340ad802ed","body":{"statements":[{"@type":"Assign","name":"minimo","id":"id_2b171a89_8722_4265_93b1_da57fed8ff2a","value":"minimo * 10"},{"@type":"Assign","name":"k","id":"id_8a0778ed_8f64_486b_9108_0b1536eba00f","value":"k - 1"}],"id":"id_9359fd77_7b80_4ec5_b385_3f8ae33c2cfd"}},{"@type":"Assign","name":"limite","id":"id_645cfc1a_a196_4714_bb2d_ba0df7e5badf","value":"minimo * 10"},{"@type":"Assign","name":"a","id":"id_5e77f5a5_7648_4ce7_9b50_823fe4a6b680","value":"minimo"},{"@type":"Assign","name":"encontrado","id":"id_4dc94415_dbb8_47ec_8fca_d7ea35208455","value":"false"},{"condition":"(a <= sqrt(n)) && (a < limite) && (!encontrado)","@type":"While","id":"id_74f9e128_190b_4a24_b6b5_c0e4965d9933","body":{"statements":[{"falseBlock":{"statements":[],"id":"id_f3d014a8_9cb1_45ba_9af4_e282272e736d"},"trueBlock":{"statements":[{"@type":"Assign","name":"b","id":"id_8efcf03d_ce27_4b74_98cf_77cf10633259","value":"n / a"},{"falseBlock":{"statements":[],"id":"id_dfa73822_00fb_4fa9_83c0_763eae9c0fdd"},"trueBlock":{"statements":[{"@type":"Assign","name":"iguales","id":"id_7fc5fda3_319d_4156_8470_6313df06821a","value":"true"},{"@type":"Assign","name":"digito","id":"id_f2ef8738_1295_4acf_806e_b00379a28880","value":"0"},{"condition":"digito < 10","@type":"While","id":"id_85f0ae37_8512_4162_a5b9_80c512f31b5e","body":{"statements":[{"@type":"Assign","name":"cantidadN","id":"id_273adc83_1af3_4f60_a6b4_8b06def9a9c6","value":"0"},{"@type":"Assign","name":"cantidadFactores","id":"id_ca8a5383_ddd1_413d_b785_4eb43f1ec3b2","value":"0"},{"@type":"Assign","name":"copia","id":"id_dd998b43_c35d_4ba0_ae04_061f7c56d4bb","value":"n"},{"condition":"copia > 0","@type":"While","id":"id_398a1ff3_a535_4359_b7bb_7000a24d0007","body":{"statements":[{"falseBlock":{"statements":[],"id":"id_80044357_9029_4a9e_b10f_b127d1d77946"},"trueBlock":{"statements":[{"@type":"Assign","name":"cantidadN","id":"id_7fa0022c_8ee4_492c_92a1_b5d7cf18dc71","value":"cantidadN + 1"}],"id":"id_f0145e95_e008_4a7b_b0ba_7d641be20783"},"condition":"copia % 10 == digito","@type":"If","id":"id_45370688_217a_46d6_8aad_60955df01154"},{"@type":"Assign","name":"copia","id":"id_640db9bc_adfc_41f8_b4b5_02329971709d","value":"copia / 10"}],"id":"id_92508e14_8e3b_484d_9373_0e282ffd54c8"}},{"@type":"Assign","name":"copia","id":"id_850b5667_fe73_4550_8178_75f280492e08","value":"a"},{"condition":"copia > 0","@type":"While","id":"id_13f88aea_3787_484a_acbc_72a54a55d077","body":{"statements":[{"falseBlock":{"statements":[],"id":"id_70b85c6e_cea4_4426_8275_9058c980ce29"},"trueBlock":{"statements":[{"@type":"Assign","name":"cantidadFactores","id":"id_3800b8d4_80f5_4674_bf3d_a2ded195fb65","value":"cantidadFactores + 1"}],"id":"id_d60b8cef_7e52_49a4_bdbf_bf4b167fce28"},"condition":"copia % 10 == digito","@type":"If","id":"id_99464eea_4305_4562_91b0_ccb77e7eac16"},{"@type":"Assign","name":"copia","id":"id_1a0f9d66_4cd7_4617_a7a0_5d50772d139b","value":"copia / 10"}],"id":"id_fb3888bb_df31_4a24_b51c_35ec3169b579"}},{"@type":"Assign","name":"copia","id":"id_85c7134e_f94e_493a_a296_c01aab7b1364","value":"b"},{"condition":"copia > 0","@type":"While","id":"id_caa020ea_489a_4e9d_8344_dbf7b0e24f77","body":{"statements":[{"falseBlock":{"statements":[],"id":"id_d39a9161_aded_4934_9918_63ab07d3810a"},"trueBlock":{"statements":[{"@type":"Assign","name":"cantidadFactores","id":"id_7c3b88cb_7415_4ba0_a470_4e5715b65b3c","value":"cantidadFactores + 1"}],"id":"id_79878042_83d8_4dfd_a9cc_64181f4f09f8"},"condition":"copia % 10 == digito","@type":"If","id":"id_ed5df2ad_c3b0_4ba4_90b9_19d0c576be00"},{"@type":"Assign","name":"copia","id":"id_bca66dfe_7e75_4505_8dc8_550b6f98f181","value":"copia / 10"}],"id":"id_3eea1c6b_849a_4bed_a5be_9014d16724f0"}},{"falseBlock":{"statements":[],"id":"id_db303580_3cc5_46a2_ac8c_ae18f2b40098"},"trueBlock":{"statements":[{"@type":"Assign","name":"iguales","id":"id_9d562d8f_2789_43cc_a232_d4a1f5bc272d","value":"false"}],"id":"id_ab55c006_f801_4a4c_80c1_e5254947759f"},"condition":"cantidadN != cantidadFactores","@type":"If","id":"id_d1454aef_d58e_42c6_b8b6_32da114def29"},{"@type":"Assign","name":"digito","id":"id_c42cd659_b33f_45ed_a072_f693991a77a6","value":"digito + 1"}],"id":"id_77f8746a_8d9c_48c7_a398_bf1bc6f46c2c"}},{"falseBlock":{"statements":[],"id":"id_9a6610e4_2f53_4148_8929_36edac288518"},"trueBlock":{"statements":[{"@type":"Assign","name":"encontrado","id":"id_e2a0023b_19b7_4767_a6dc_f0608ec351ff","value":"true"}],"id":"id_26568349_8377_44c2_83f2_5ea5a1cad0c0"},"condition":"iguales","@type":"If","id":"id_35f0f89a_708b_469b_9224_d98d0a30fb29"}],"id":"id_03262fee_6563_4265_ab6d_c3a02424d687"},"condition":"(b >= minimo) && (b < limite) && !((a % 10 == 0) && (b % 10 == 0))","@type":"If","id":"id_5f383d6f_89f2_452f_9ea4_1ac9b6c51741"}],"id":"id_da48f147_01b8_4b24_8e11_249d75767e17"},"condition":"n % a == 0","@type":"If","id":"id_0e15bd56_ceb8_490d_88ae_95bf96972dac"},{"falseBlock":{"statements":[],"id":"id_96eec0da_90ad_4675_94e1_52d70f2bd7b7"},"trueBlock":{"statements":[{"@type":"Assign","name":"a","id":"id_f28a6219_e8d2_4f60_9c9a_53aca0f23fab","value":"a + 1"}],"id":"id_638bf24c_2485_4553_afae_6fb205d2a73f"},"condition":"!encontrado","@type":"If","id":"id_81f1f9fa_b0ce_47c3_8005_33b7fa7c667c"}],"id":"id_ee7d09c0_9d9d_47e0_982a_c808ace74740"}},{"falseBlock":{"statements":[{"newline":true,"@type":"Output","id":"id_5a346a8c_f945_4505_acd2_a32c829c5414","value":"\"No es vampiro\""}],"id":"id_66600109_45fd_4e4e_8e44_36715fea8723"},"trueBlock":{"statements":[{"newline":true,"@type":"Output","id":"id_626f0fd2_089a_48da_aee4_98a196e6b962","value":"\"Es vampiro. Factores:\""},{"newline":true,"@type":"Output","id":"id_65bceff6_429b_4d96_9cd0_2cdbc9710eb4","value":"a"},{"newline":true,"@type":"Output","id":"id_8f8f0c41_b4e3_43fe_a7ec_c5421ddfe044","value":"b"}],"id":"id_ba94bec5_3cc0_49a0_a091_23ddb20ab3bd"},"condition":"encontrado","@type":"If","id":"id_1c308bfc_7a91_4534_adb1_b3fb6a2fa01c"}],"id":"id_6951c9d2_8bb2_4a10_81c8_2ae6add3de6c"},"trueBlock":{"statements":[{"newline":true,"@type":"Output","id":"id_9f301a4c_47e8_40b6_a3ee_08ee8fe3e41f","value":"\"No es vampiro\""}],"id":"id_a8d80bdb_0b53_43bd_9a87_ca76c27b69c1"},"condition":"d % 2 != 0","@type":"If","id":"id_f153e2bf_3d29_4e5f_9101_1a18530759a9"}],"id":"id_f96cd7e9_0f8d_4771_90e8_653225aaad76"},"trueBlock":{"statements":[{"newline":true,"@type":"Output","id":"id_ae113457_4a7a_422f_9b76_e7580ba7e139","value":"\"Entrada invalida\""}],"id":"id_649e14f6_9197_4a81_8ec2_150128a93177"},"condition":"n <= 0","@type":"If","id":"id_898e56b2_b329_46d7_95db_0f255d60c80a"},{"@type":"Return","id":"id_e946eb57_0685_423a_a0c1_b5048ee4ebbf","maybeValue":null}],"parameters":[]},"id":"id_385676f3_5158_4de0_86ff_b8c30abf03a6","config":{"showDebugVars":true,"useInputPrompt":false,"echoEnteredValue":false,"showIoBtns":true,"showFunctions":false,"lang":"java","showGenCode":false},"version":"0.3","revision":2}