Найти двузначное число, равное утроенному произведению его цифр. ответ: 15,24.

Var i,j: integer; begin for i: =1 to 9 do   for j: =0 to 9 do   if i*10+j = 3*i*j then writeln(i*10+j); end. результат: 15 24

Если надо программу для поиска такого числа, то как вариант: //pascal var i: integer; begin   for i: =10 to 99 do       if (i=(i div 10 * i mod 10) *3) then writeln(i); end. ответ: 1524

var n, i, k, a: integer;

begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.

решение:  

1) 640 * 480 * 0,5 байта = 153600 байт.  512 * 1024 = 524288 байт  524288 / 153600 = 3,413 кадров.  2) 640 * 480 * 1 байт = 307200 байт  524288 / 307200 = 1,706 кадра.

ответ: примерно на одну страницу с половиной: )