Пусть видеопамять компьютера 512 кбайт. размер графической сетки - 640х480. сколько страниц экрана может одновременно разместиться в видео памяти при палитре из 256 цветов.

256 цветов - это 1байт на пиксел

один экран = 640*480*1байт = 300 кб

значит только один эран и вместится

1)3 * (умножить) 30 = 90 - строк всего                                                                                                                                                2)90 * 50 = 4500 - символов всего                                                                                                                                                              3) 2250 * 8 = 18000 - бит весь текст                                                                                                                                                        4)18000 : 4500 = 4 - вес одного символа                                                                                                                                          5)  2^4 ( два в четвёртой степени) = 16 - символов в алфавите                                     ответ: 16.         

короче, я с теорией не работаю, поэтому объясню алгоритм более практичней. итак, нам нужно проверить каждый элемент массива и выяснить, является ли он трехзначным числом. какой-то переменной мы присваем значение 1000. и как только мы находим трехзначное число, мы проверяем ниже ли это число той переменной(в первый раз, соответственно да). если ответ положительный, то присваем переменной значение числа, сс которым мы работали и которое, естественно меньше. теперь проверяем дальше трехзначные числа. если они ниже переменной, то присваевам их к этой же переменной. в конце цикла, переменная будет иметь значение минимального 3х знач элемента. если переменная по прежнему равна 1000. значит 3х знач числа не нашлось и мы выводим надпись "таких чисел нет".

 

если я объяснил не слишком понятно, то покажу на примере:

 

var a: array [1..30] of real; i,min: real;

begin

 

{здесь ты сама как-нибудь вводишь элементы цикла. или с файла, либо с вводом}

 

min: =1000;

for i: =1 to 30 do begin

                              if (a[i] div 100> 0) and  (a[i] div 100< 10) then

                              if a[i]< min then min: =a[i];

                          end;

if min< > 1000 then writeln(min) else writeln('таких чисел нет! ')

end.

 

ну наверно

удачи!