Ответы на вопрос:
Program amstrong; var a,b: integer; i,j,k, ci, si,mi, errkod: integer; sti: string; flag: boolean; begin readln(a,b); flag: =false; for i: =a to b do begin str(i, sti); si: =0; for j: =1 to length(sti) do begin val(sti[j],mi,errkod); ci: =1; for k: =1 to length(sti) do ci: =ci*mi; si: =si+ci; end; if si=i then begin write(si,' '); flag: =true end; end; if not flag then write(-1); readln; end.
Популярно: Информатика
-
masha2812281201.04.2021 20:42
-
belovworms2003p0af2401.03.2023 03:25
-
sitkavetskiy17.12.2020 06:39
-
yadlos3801.06.2020 02:03
-
emma6666901.12.2021 09:06
-
you7827.01.2020 20:26
-
принцеска00516.04.2021 15:13
-
costya9920.03.2023 19:03
-
Якорь51214.07.2022 10:39
-
liana510110.07.2022 21:10