<span><span>var
a,s: real;
n,i: byte;
begin
write('Введите вещественное a: ');
readln(a);
repeat
write('Введите целое n (n>0): ');
readln(n);
until (n>0);
s:=1;
for i:=1 to n do
begin
s:=s*a;
writeln(a,' в степени ',i,' = ',s);
end;
readln; //в pascalAbc.net - не обязательно
end.</span></span>
640*512 * 7 = 2 293 760 бит = 286 720 байт = 280 Кбайт
Ответ
16 бит = 2 байта
(96 * 1024)/(24*64*2) = 32
#include <iostream>
using namespace std;
int main()
{
int n,m,p;
cin>>n;
int n1=n/100;
int n2=(n/10)%10;
int n3=n%10;
if (n1>n2)
if (n1>n3) {m=n1; p=1;} else {m=n3; p=3;}
else
if (n2>n3) {m=n2; p=2;} else {m=n3; p=3;}
cout<<"max="<<m<<", poz= "<<p<<endl;
system("pause");
}