Такое число для 3 разрядных чисел одно, это 512
Sub amstrong()
ctroka = 2
For i = 100 To 999
N1 = i \ 100
N2 = (i - 100 * N1) \ 10
N3 = i - 100 * N1 - 10 * N2
If (N1 + N2 + N3) ^ 3 = i Then
Cells(ctroka, 2) = i
ctroka = ctroka + 1
End If
Next i
<span>End Sub</span>
128 = 2^7 значит 7 бит на символ
Общий обьем данных 7*180*2048 = 2 580 480 бит = 322 560 байт = 315 кб
<span>program gt;
var x1,x2,dx,y:real;
begin
readln(x1,x2,dx);
while x1<=x2 do
begin
y:=(x1-5)/(cos(x1*3.14/180));
writeln(x1,' ',y:1:4);
x1:=x1+dx;
end;
end.
<span>Это вторая задача.А теперь про первую. Она такая же как это но y= пиши что там в условии сказано и всё</span></span>
2^x=256 => x=8
Производим необходимые расчёты: 2^8 * 2^8 / 1024 = 64 килобайт