Ответы на вопрос:
// pascalabc.net 3.2, сборка 1456 от 26.05.2017 // внимание! если программа не работает, обновите версию! begin var n: =readinteger('n='); var s: =range(10,99).where(x-> (power(x div 10,3)+power(x mod 10,3)=n)); if s.count> 0 then s.println else writeln('нет таких чисел') end. пример n= 9 12 21
Популярно: Информатика
-
кика2005118.12.2020 21:29
-
marisha060605.03.2023 17:07
-
petrachenkov20127.03.2021 10:59
-
meowth102.07.2021 04:51
-
Lisa11200709.02.2020 08:31
-
MalichikSpodezga19.12.2021 00:40
-
tomatlinder23.08.2021 05:25
-
Uliana4444102.08.2022 11:48
-
ВелмаУмница22.12.2021 17:05
-
Соня1164708.04.2021 18:03