Программа работает в следующем виде:
n = InputBox(vbLf & "Напиши значение ""n"" (количество расчетов)")
ReDim X(n)
ReDim Y(n)
Randomize
For i = 1 To n
X(i) = 5 - 10 * Rnd
Next
S = 0
For Each b In X
S = S + X(1) / i
Next
MsgBox "S=" & S
Нижние строки я убрал, потому что не понял, зачем они и что должны выводить: в задании про них ничего не сказано.
Print("Введите n:")
n = int(input())
m = 0
for i in range(1,n):
m = m+45
if i % 2 == 1:
m = m+5
else:
m = m+15
m = m+45
print('%(h)d:%(min)02d' % {"h":9 + m // 60, "min":m % 60})
Пример:
<span>Введите n: 5
13:25</span>
Дано:
K=512*256=131072
N=4096
Найти:
V-?
Решение:
V=K*I
I=log₂N
I=log₂4096=12 бит
V=131072*12=1572864 бит : 8=196608 байт : 1024=192 Кб
Ответ: 192 Кб
Var
x:integer;
begin
writeln('x=');
readln(x);
writeln('вы ввели:',x);
x:=0;
writeln('произошла замена. Теперь x=',x);
end.