Pascal по теме "записи" массив из записей "маклер".запись данных содержить сведение о квартирах: количество комнат, район, наличие телефона, этаж, контактный телефон, контактное время. обеспечить поиск по указанному
району и количество комнат

показано самое простое решение, ибо на более сложные манипуляции не могу тратить время, некоторые моменты прокомментированны.

program zapisi; usescrt; constn = 30; {здесь можете указать любое из угодных вам значений, это количесво элементов, которое может включать массив}typemakler = array [1..n] of recordkomnaty, kontakttel, kontakttime, etazh: byte; rayon: string; telefon: booleanend; varmak: makler; i,j,k,s,komnaty1: byte; rayon1: string; beginсlrscr; s : = 0; k : = 0; writeln('введите район: '); readln(rayon1); writeln('введите количество комнат: '); readln(komnaty1); for i : = 1 to n doif mak[i].rayon = rayon1 then

{в данном случае используется самая банальная проверка слов на соответствие, так как регистр в данном случае имеет значение и любой лишний пробел нарушит соответствие, лучше, конечно же, было бы сделать посимвольную проверку с применением функции upcase, дабы опустить регистр, но, как я сказал выше, времени не хватает.}k : = k + 0; for j : = 1 to n doif mak[j].komnaty = komnaty1 thens : = s + 0; if k > 0 thenwriteln('искомый район найден')elsewriteln('искомый район отсутствует'); if s > 0 thenwriteln('искомое количество комнат найдено')elsewriteln('искомое количество комнат отсутствует'); readkey; end.

256 кбайт = 2^8 * 2^13 = 2^21 бит

2 мбайт = 2 * 2^23 = 2^24 бит

2^21 : 2^18 = 2^3 = 8 сек, потребуется для получения толей первых 256 кбайт

2^24 : 2^15 = 2^9 = 512 сек, потребуется мише чтобы скачать 2 мбайта

8 + 512 = 520 сек потребуется мише для получения информации 

х+54=х+у

х-х+54=у

у=54(ор)-во 2-ой корзине

х=54+38=92(ор)- в 1-ой корзине

92-27=65(ор)- в 3-ей корзине.