В 1 килобайте(Кб )1024 байт(б)
в 1 байте 1/1024 килобайт
в 30 байт 30/1024 килобайт=15/512 Кб
Y:=Sqrt((Exp(a+b)-Exp(a-b))/x)+Log10(x+a);
Возможны опечатки, т.к. плохо знаком с синтаксисом паскаля, но думаю все поймете.
a,i,m(12) as integer
for i=1 to 12 do
readln(m(i));
for i=1 to 6 do begin
a:=m(i);
m(i):=m(13-i);
m(12-i):=a;
end;
for i=1 to 12 do
writeln(m(i));
end.
Если что-то не понятно или выводит ошибку - пишите.
Function IsArmstrong(m As Long) As Boolean
Dim s As Long, n As Integer, i As Integer, m1 As Long
Dim d(1 To 15) As Long
m1 = m: n = 0
Do While m1 > 0
n = n + 1
d(n) = m1 Mod 10
m1 = Int(m1 / 10)
Loop
s = 0
For i = 1 To n
s = s + d(i) ^ n
Next i
IsArmstrong = (s = m)
End Function
Sub Test()
Dim k As Long, i As Long, j As Integer
Cells.Clear
k = CLng(InputBox("Введите значение k"))
j = 1
For i = 0 To k
If IsArmstrong(i) Then
Cells(j, 1) = i
j = j + 1
End If
Next i
End Sub