Зачетная постройте блок-схему алгоритма решения квадратного уравнения вида ax^2 + bx + с = 0 . предусмотрите ситуации, когда коэффициэнт a = 0 или дискриминант отрицательный

Надеюсь правильно сделал, ибо давно блок-схемы не делал: ) upd: не заметил условия, второй рисунок со всеми условиями.

Наверное, здесь ошибка - текст занимает 10 дорожек, а не секторов. 180 кбайт разбиты на 40 дорожек по 9 секторов, то есть на 40*9=360 частей (кластеров). 1 кластер занимает 180/360=0,5 кбайта. текст занимает 10 полных дорожек, то есть 10*9=90 кластеров. объем текста равен 90*0,5 = 45 кбайт. текст записан с 16-символьного алфавита, то есть на каждый символ уходит 4 бита = 0,5 байта, потому что 16 = 2^4. количество символов в тексте равно 45*1024/2 = 45*512 = 23040. если же ошибки нет, и файл занимает 10 секторов, то это 1 дорожка и еще 1 сектор. тогда объем файла 5 кбайт = 5*1024/2=5*512=2560 символов

1) program ex;   var i: integer ; mas: array [1..10] of integer;   begin    for i: =1 to 10 do      begin          mas[i]: =random(9)+1;           if (mas[i] mod 2)=0 then            mas[i]: =mas[i]+1;       end;   end.  2)program ex; var i: integer ; mas: array [1..10] of integer; begin    for i: =1 to 10 do      begin        mas[i]: =random(9)+1;         if (mas[i] mod 2)=0 then          mas[i]: =0;       else     mas[i]: =mas[i]*3;   end; end. 3)program ex; var i: integer ; mas: array [1..10] of integer; begin    for i: =1 to 10 do      begin        mas[i]: =random(9)+1;         if (i mod 2)=0 then          mas[i]: =(mas[i]*mas[i]);       end; end. 4)program ex; var i: integer ; mas: array [1..10] of integer; begin    for i: =1 to 10 do      begin        readln(mas[i]);     if (mas[i]< 0) then          mas[i]: =mas[i]*(-1);       end; end.