Пусть видеопамять компьютера имеет объем 512 Кбайт. Размер графической сетки – 640 х 480. Сколько страниц экрана одновременно разместится в видеопамяти при палитре из 128 цветов? С решением

   '     1)Напиши программу, выводящую на экран степени числа 3 в интервале от а до b включительно (а и b задаются пользователем).    
    
Dim a As Integer
Dim b As Integer  
Dim i As Integer    

a = InputBox("Введите а") 
b = InputBox("Введите b")
   
Dim msg As String      
msg = ""   
     
For i = a To b     
       msg = msg &  3 в степени " & i & " равно " & 3 ^ i & vbCrLf    
 Next    

MsgBox(msg)

2)Найти все делители числа 1204.   

Dim i As Integer       
Dim msg As String   
msg = ""      

For i = 1 To 1204  
          If 1204 Mod i = 0 Then      
                  msg = msg & "Число " & i & " является делителем 1204." & vbCrLf                  End If    
Next 
  MsgBox(msg)

Хоть кто-то на приличном языке пишет (учится). Так держать, паскаль-старье.
#include <iostream>
#include <climits>
using namespace std;
int main()
{
  const int s=16;//число элементов+1
long long a[s],zero=0,pluss=LLONG_MAX;
setlocale(LC_ALL,"Rus");
for(int i=1;i<=s;i++)
{
cout<<endl<<"Введите элемент массива №"<<i<<": ";
cin>>a[i];
}
for(int i=1;i<=s;i++)
{
if (a[i]==0) zero++;
if ((a[i]>0)&(a[i]<pluss)) pluss=a[i];
}
cout<<endl<<"Наименьший положительный элемент: "<<pluss;
cout<<endl<<"Количество нулей: "<<zero;
return 0;
}