Var
i,N,A,k:integer;
Begin
k:=0;
Write('N = ');Read(N);
For i:= 1 to N do
Begin
Read(A);
if (A mod 10 = 8) then k:=k+1;
End;
WriteLn(k);
End.
Находим количество символов: 1024×64×64=4194304 символов — байт (т.к. 1 символ=1 байт
В 1 Мбайте — 1048576 байт
Следовательно: 4194304/1048576=4 Мбайта
<span>Пользовательский интерфейс - это совокупность средств и правил взаимодействия человека и компьютера. Взаимодействие человека и компьютера в наши дни строится на основе объектно-ориентированного графического интерфейса, в котором: все объекты представляются в виде значков; оперирование объектами осуществляется в окнах; основным элементом программного управления является меню; основным элементом аппаратного управления являются различные манипуляторы. Информационное пространство пользователя - это информационные ресурсы (файлы с программами, документы, Web-сайты, фотографии, видеофрагменты и др.), доступные пользователю при работе на компьютере.</span>
Готово :)
..............................
Sub Main
dim n as integer
dim k as integer
dim p as integer
dim min as integer
dim s as string
n=inputbox("Сколько будет чисел?")
dim a(n)
for i=1 to n
<span> a(i)=inputbox(i & " число")
</span><span> s=s & a(i) & "; "
</span>next i
min=a(1)
k=1
for i=2 to n
<span> if a(i)<min then
</span><span> min=a(i)
</span><span> k=i
</span><span> end if
</span>next i
p=a(k+1)
for i=k+2 to n
<span> p=p*a(i)
</span>next i
s=s & "p=" & p
msgbox(s)
<span>End Sub</span>