Ответы на вопрос:
Вгодном гигабайте 1 073 741 824 байт т. е. * 8 бит. 234 бита/8 = 30 байт, т. е. до гигабайта ещё как до альдебарана! =)) с 233 сообщениями по 1 биту, если вы это имели ввиду, дело обстоит сложнее, т. к. это смотря где они лежат (если каждое в отдельном файле, то минимальный размер одного файла на диске зависит от размера кластера в таблице разделов, а это от 256 байт до нескольких килобайт, т. е. сперва надо выяснить характеристики носителя информации, где они будут лежать и умножить потом на размер кластера).
1. современный вариант // pascalabc.net 3.1, сборка 1218 от 12.04.2016 begin var pow3: integer-> integer: =n-> n*n*n; var good: integer-> boolean: =n-> (pow3(n div 100)+ pow3((n div 10) mod 10)+pow3(n mod 10))=n; range(100,999).where(x-> good( end. результат: 153 370 371 407 2. школьный вариант // pascalabc.net 3.1, сборка 1218 от 12.04.2016 var i,n,d100,d10,d1: integer; begin for i: =100 to 999 do begin d100: =i div 100; d10: =(i div 10) mod 10; d1: =i mod 10; if d100*sqr(d100)+d10*sqr(d10)+d1*sqr(d1)=i then write(i,' ') end; end.
Популярно: Информатика
-
hrustam200420.06.2022 19:05
-
Sasha1998rus24.06.2022 10:05
-
wionk04.01.2020 19:45
-
милка32810.02.2020 17:50
-
737637325.02.2023 23:37
-
Dia111111111111105.10.2021 16:41
-
likunya16.06.2020 14:11
-
nik771018.09.2022 01:09
-
дильназ05айдархан16.01.2021 14:16
-
миру303.10.2021 08:45