Где в среде lazarus программист располагает все объекты палитры компонентов? - в окне кода - в меню - на форме - в окне инспектор объектов

в окне кода

это правильный ответ

Для измерения длины есть такие единицы, как миллиметр, сантиметр, метр, километр. известно, что масса измеряется в граммах, килограммах, центнерах и тоннах. бег времени выражается в секундах, минутах, часах, днях, месяцах, годах, веках. компьютер работает с информацией и для измерения ее объема также имеются соответствующие единицы измерения. мы уже знаем, что компьютер воспринимает всю информацию  через нули и единички.  бит  – это минимальная единица измерения информации, соответствующая одной двоичной цифре («0» или «1»). байт  состоит из восьми бит. используя один байт, можно закодировать один символ из 256 возможных (256 = 28). таким образом, один байт равен одному символу, то есть 8 битам: 1 символ = 8 битам = 1 байту. изучение  компьютерной грамотностипредполагает рассмотрение и других, более крупных единиц измерения информации. бит является значением 0 или 1 полбайта полбайта составляется 4 бита байт байт равен 8 битам килобайт (кб) килобайт это 1024 байт мегабайт (мб) мегабайт это 1.048.576 байт или 1024 килобайт гигабайт (гб) гигабайт = 1.073.741.824 байт, 1.024 мегабайт, 1.048.576 килобайт терабайт (тб) 1 терабайт равен 1.099.511.627.776, 1.024 гигабайт, 1.048.576 мегабайт петабайт (пб) петабайт это 1.125.899.906.842.624 байт, 1.024 терабайт, или 1.048.576 гигабайт эксабайт (эб) эксабайт это 1.152.921.504.606.846.976 байт, 1.024 петабайт, или 1.048.576 терабайт зеттабайт (зб) зеттабайт равен 1.180.591.620.717.411.303.424 байт, 1.024 эксабайт, или 1.048.576 петабайт йоттабайт (йб) йоттабайт = 1.208.925.819.614.629.174.706.176 байт, 1.024 зеттабайт, или 1.048.576 эксабайта

1) var x, i: integer; begin write('введите x -> '); readln(x); write(1, ' '); for i: = 2 to x div 2 + 1 do   if x mod i = 0 then       write(i, ' '); write(x); end. 2) var x,count, i: integer; begin write('введите x -> '); readln(x); for i: = 2 to x div 2 + 1 do   if x mod i = 0 then       count: = count + 1; writeln(count);       end. 3) var x, count, i: integer; begin write('введите x -> '); readln(x); for i: = 2 to x div 2 + 1 do   if x mod i = 0 then       count: = count + 1; if count = 0 then writeln('простое') else writeln('составное');       end. 4) var n,m, i, j: integer; fl: boolean; begin readln(n,m); for i: = n to m do   begin   fl : = true;   for j: = 2 to i div 2 + 1 do       if i mod j = 0 then fl : = false;   if (fl) then write(i, ' ');   end; end.