1. без каких из перечисленных ниже устройств работа компьютера невозможна: принтер, процессор, клавиатура, флэш-память, монитор, оперативная память, устройство cd-rom? 3. какова разрядность процессоров у современных персональных компьютеров? 4. запишите возможный объем следующих носителей информации, используя указанные в скобках варианты ответов (1, 44 мбайт, 700 мбайт, 120 гбайт, 512 мбайт, 4, 7 гбайт): а) cd-r; б) dvd-r; в) флэш-память; г) дискета; д) жесткий магнитный диск.

1процессор оперативная память клавиатура монитор

Const       n = 10; var       a, b: array[1..n]of real;       i: integer;       s, maxs: real; begin       for i : = 1 to n do       begin               a[i] : = random(3, 10);               b[i] : = random(3, 10);                             if (maxs < a[i] * b[i]) then maxs : = a[i] * b[i];       end;             for i : = 1 to n do               if (maxs = a[i] * b[i]) then                       writeln(i, ' площадь=', a[i] * b[i] * 0.5, ' а=', a[i], ' b=', b[i]);       end.

Попробуй так uses graph, crt;     var             d,r,r1,r2,rr,k,             x1,y1,x2,y2,x01,y01: integer;             xasp,yasp : word; begin   {инициируем графику}         d : = detect;         initgraph(d, r, ' ') ;         k: = graphresult;         if k < > grok then  writeln(grapherrormsg(k))   else begin {определяем отношение сторон и размеры экрана} x1 : = getmaxx div 2; y1 : = getmaxy div 2; getaspectratio(xasp, yasp); {вычисляем радиусы: }   r: = round(3*getmaxy*yasp/8/xasp);   r1 : = round(0.9*r); {часовые деления}   r2 : = round(0.95*r); {минутные деления} {изображаем циферблат}   circle(x1,y1,r); {первая внешняя окружность}   circle(x1,y1,round(1.02*r)); {вторая окружность}     for k : = 0 to 59 do {деления циферблата}       begin             if k mod 5=0 then                     rr : = r1 {часовые деления}           else                     rr: = r2 ; {минутные деления} {определяем координаты концов делений}   x01 : = x1+round(rr*sin(2*pi*k/60));   y01 : = y1-round(rr*xasp*cos(2*pi*k/60)/yasp);   x2 : = x1+round(r*sin(2*pi*k/60));   y2 : = y1-round(r*xasp*cos(2*pi*k/60)/yasp);   line(x01,y01,x2,y2) {выводим деление} end; {готовим вывод стрелок}   setwritemode(xorput);   setlinestyle(solidln,0,thickwidth);   r : = 0; {счетчик минут в одном часе} {цикл вывода стрелок}   repeat     for k : = 0 to 59 do {k = минуты}           if not keypressed then                 begin                               {координаты часовой стрелки}                               x2 : = x1+round(0.85*r1*sin(2*pi*r/60/12));                               y2 : = y1-round(0.85*r1*xasp*cos(2*pi*r/60/12)/yasp);                               {координаты минутной стрелки}                               x01: = x1+round(r2*sin(2*pi*k/60));                               y01: = y1-round(r2*xasp*cos(2*pi*k/60)/yasp);                               {изображаем стрелки}                                 line(x1,y1,x2,y2);                                 line(x1,y1,x01,y01);                                 delay(100); {для имитации реального темпа                                                                           нужно установить задержку 60000}                                                                         {для удаления стрелок выводим их еще раз! }                                 line(x1,y1,x01,y01);                                 line (x1,y1,x01,y01 ) ; {наращиваем и корректируем счетчик минут в часе} inc(r); if r=12*60  then   r : = 0 end until keypressed; if readkey=#0 then k: =ord(readkey); closegraph; end end.