1. составить программу вычесления значения функций у по формуле у = 3cos(5x) , для которой значение аргумента х введите с клавиатуры. 2.составьте программу для решения слкдующей . ежедневно молочная ферма надаивает х л молока.найдите количество молока, полученный за b дней. 3 дано двузначное число. вывести вначале его левую цифру(десятки, а затем - его правую цифру(еденицы для нахождения десятков использовать операциюделения нацело, для нахождения едениц - операцию взятия остатка от деления. 4. дано целое число, большее 999. используя одну операцию деления нацело и одну операцию взятия остатка от деления, найти цифру, соответсвующую разряду сотен в записи этого числа. 5. выведите с клавиатуры два числа: а и в. если лба числа четные, то вычеслите их сумму и выведите результат на экран. если оба - нечетные, то найдите произведение этих чисел и выведите результат. иначе, увеличьте все числа в пять раз и выведите результаты.

1. var x: integer; y: real; begin write('введите значение аргумента "x" : '); readln(x); y: =3*cos((5*x)); writeln('значение функции "y" = ',y); readln; end.2.varx,b: integer; beginwrite('введите количество молока, полученного за день, л : '); readln(x); write('введите количество дней : '); readln(b); writeln('количество молока, полученного за заданный промежуток времени = ',x*b); readln; end.   3.vara,b,c: integer; beginwrite('введите двузначное число: '); readln(a); b: =a div 10; c: =a mod 10; writeln(b,#10,c); end.4.varb: integer; a: longint; beginwrite('введите целое число: '); readln(a);   b: =a div 100 mod 100; writeln(b); readln; end.5.  vara,b: integer; beginwrite('введите числа : '); readln(a,b); if a and b mod 2=0 then  writeln(a+b); if a and b mod 2< > 0 then  writeln(a*b); readln; end. {про последнее "иначе", увеличьте все числа в пять раз и выведите результаты" не оба чётные - сумма, если оба - нечётные - то произведение. а если иначе, то число должно быть равно нулю. смысл увеличивать его в пять раз? )}

Program qq; uses crt; var m: array[1..31] of real; sr, all, a, b, ia, ib: real; i, n: integer;   //значения кол-ва осадков нецелые, т.к. целые встречаются редко. однако можно заменить и на integer. среднее значение (sr) всегда real, т.к. есть операция деления begin writeln ('введите количество дней: '); //возможность расчета запрашиваемых данных как за полный месяц (31 день - верхняя граница массива), так и за какую-то его часть - n дней. readln (n); all: =0; //обнуляем переменные. ia: =0; ib: =0; for i: =1 to n do          read (m[i]); //задаем массив. если массив задается другим способом - стоило бы указать в . for i: =1 to n do           all: =all+m[i]; //подсчёт общего кол-ва осадков sr: =all/n; //среднее арифметическое осадков writeln('введите числа а и b'); read (a, b); for i: =1 to n do                      begin                      if m[i]=b then                                 if ib=0 then  ib: =i;   //сравниваем оба числа поочередно                       if m[i]=a then                       //с каждым элементом массива, если                                    if ia=0 then  ia: =i;   //, то запоминаем индекс. вложенное условие позволяет считать индекс только первого встретившегося числа.                       end; writeln ('среднесуточное кол-во осадков: ', sr: 6: 2); writeln ('общее кол-во осадков', all: 8: 2); if ib< > 0 then                writeln ('est` chislo b'); //если индекс не 0, значит мы нашли b в массиве if ia< > 0 then             writeln ('est` chislo a'); if (ib< > 0) and (ia< > 0) then  //имеет смысл сравнивать позиции чисел, только если оба числа присутствуют в массиве                                           if ia< ib then //число с меньшим индексом, очевидно, встречается первым                                                         writeln ('pervim vstr a')                                                     else                                                         writeln ('pervim vstr b'); end.

Флэш-памятьустройства, выполненные на одной микросхеме (кристалле) и не имеющие подвижных частей, основаны на кристаллах электрически перепрограммируемой  флэш-памяти.  принцип организации ячеек флэш-памяти можно считать одинаковым для всех выпускаемых устройств, как бы они ни назывались. различаются такие устройства по интерфейсу и применяемому контроллеру, что обусловливает разницу в емкости, скорости передачи данных и энергопотреблении. multimedia card (mmc) и  secure digital (sd) –  сходит со сцены из-за ограниченной емкости (64 мб и 256 мб соответственно) и низкой скорости работы. smartmedia  – основной формат для карт широкого применения (от банковских и проездных в метро до удостоверений личности). тонкие пластинки весом 2 грамма имеют открыто расположенные контакты, но значительная для таких габаритов емкость (до 128 мбайт) и скорость передачи данных (до 600 кбайт/с) обусловили их проникновение в сферу цифровой фотографии и носимых мрз-устройств. memory stick  – “эксклюзивный” формат фирмы  sony, практически не используется другими компаниями. максимальная емкость – 256 мбайт, скорость передачи данных доходит до 410 кбайт/с, цены сравнительно высокие. compactflash (cf)  – самый распространенный, универсальный и перспективный формат. легко подключается к любому ноутбуку. основная область применения – цифровая фотография. по емкости (до 3 гбайт) сегодняшние  cf-карты не уступают  ibm microdrive, однако отстают по скорости обмена данными (около 2 мбайт/с).   usb flash drive usb flash drive  – последовательный интерфейс  usb  с пропускной способностью 12 мбит/с или его современный вариант  usb  2.0 с пропускной способностью до 480 мбит/с. сам носитель заключен в обтекаемый компактный корпус, напоминающий автомобильный брелок. основные параметры (емкость и скорость работы) полностью сcompactflash, поскольку чипы самой памяти остались прежними. может служить не только “переносчиком” файлов, но и работать как обычный накопитель – с него можно запускать приложения, воспроизводить музыку и сжатое видео, редактировать и создавать файлы. низкое среднее время доступа к данным на  flash-диске – менее 2,5 мс. вероятно, накопители класса  usb flash drive, особенно с интерфейсом  usb  2.0, в перспективе смогут полностью заменить собой обычные дискеты и частично – перезаписываемые компакт-диски, носители  iomega zip  и им подобные. pc card (pcmcia ata)  – основной тип флэш-памяти для компактных компьютеров. в настоящее время существует четыре формата карточек  pc card: type i, type ii, type iii  иcardbus, различающиеся размерами, разъемами и рабочим напряжением. для  pc card  возможна обратная совместимость по разъемам “сверху вниз”. емкость  pc card  достигает 4 гб, скорость – 20 мб/с при обмене данными с жестким диском. miniature card (mc)  – карточка флэш-памяти, предназначена в основном для карманных компьютеров, мобильных телефонов и цифровых фотокамер. стандартная емкость составляет 64 мбайт и больше.устройств хранения много, ты определись на какие именно будешь делать свой доклад или реферат