Ответы на вопрос:
в языке pascal команда for всегда совершает шаг, равный единице
это можно проверить с программы:
var i: integer; beginfor i: =1 to 10 dowriteln(i); end.счётчик i увеличивается на 1, следовательно шаг всегда равен единице.
Проще всего решить, уже имея набор этих чисел, а их не так много и их можно найти в интернете) #include < iostream> #include < vector> using namespace std; int main() { vector < long long int> armstrong = {1, 2, 3, 4, 5, 6, 7, 8, 9, 153, 370, 371, 407, 1634, 8208, 9474, 54748, 92727, 93084, 548834, 1741725, 4210818, 9800817, 9926315, 24678050, 24678051, 88593477, 146511208, 472335975, 534494836, 912985153, 4679307774}; long long int n; int l = armstrong.size(); cin > > n; for (int i = 0; i < l & & armstrong[i] < = n; ++i) cout < < armstrong[i] < < '\n'; return 0; }
Популярно: Информатика
-
Anastasyu12020.02.2023 09:46
-
infaitile25.09.2022 21:57
-
Бекки520.06.2022 21:16
-
aselb8430.06.2021 09:08
-
ангел81509.05.2021 01:24
-
baga2712.04.2023 15:48
-
Mariyana1028.01.2023 18:15
-
adadov1234516.11.2022 03:11
-
cikitka208.03.2023 09:12
-
godday08.08.2020 13:03