Нужно объяснить решение программы program qq; var b,c,f: integer ; begin for var a: =100 to 999 do begin b: = a mod 10; c: = (a mod 100) div 10; f: =a div 100; if a=(c*c*c)+ (b*b*b) + (f*f*f) then writeln(a); end; end.
248
379
Ответы на вопрос:
программа перебирает все 3х значные числа
b - первая цифра числа, т.е. единицы
c- вторая цифра числа, т.е. десятки
f - третья цифра числа, т.е. сотни
таким образом программа выводит все 3х значные числа, которые равны сумме кубов своих цифр
т.е. такие числа, что f*100+c*10+b=f*f*f+b*b*b+c*c*c
Белый. ff - максимальное значение интенсивности цвета, и так указаны все три компонента.
Популярно: Информатика
-
АйкоУесМ09.04.2021 21:39
-
zakomorniy08.02.2022 04:12
-
GGame7827.09.2020 11:34
-
KIRILLGAMER33211.05.2023 20:07
-
Ксюшкаа118.02.2020 10:50
-
ViktorrriaQueen30.03.2021 06:06
-
ирок51101.03.2023 13:48
-
2xui203.09.2020 02:29
-
марина191615.02.2021 01:51
-
dimabolnygin19.04.2022 00:50