Дорешать и поправить программу на паскале решение биквадратного уравнения program bikkiv; var procedure ur(var a, b, c, x1, x2); var d: real bedin d: =b*b-4*a*c; if d< 0 then writeln('корней нет') else d=0 then x: =-b/(2+a) else begin x1: =-b-sqrt(d)/2a; x2: =-b+sqrt(d)/2a; end; end; begin readln(a1, b1, c1, t1, t2); ur(f1, b1, c1, t1, t2);

Var a,b,c,y1,y2,d,i: real; begin read(a,b,c); d: =b*b-4*a*c; if d> 0 then begin y1: =(-1*b+sqrt(d))/(2*a); y2: =(-1*b-sqrt(d))/(2*a); if y1> =0 then  begin    writeln(sqrt(y1));     writeln(sqrt(y1)*-1);   end;   if y2> =0 then  begin    writeln(sqrt(y2));     writeln(sqrt(y2)*-1);   end; end else if d=0 then begin y1: =(-1*b)/(2*a); if y1> =0 then  begin    writeln(sqrt(y1));     writeln(sqrt(y1)*-1);   end;   end else writeln('корней нет'); end.

Информационная модель — модель объекта, представленная в виде информации, описывающей существенные для данного рассмотрения параметры и переменные величины объекта, связи между ними, входы и выходы объекта и позволяющая путём подачи на модель информации об изменениях входных величин моделировать возможные состояния объекта.

Информационная модель (в широком, общенаучном смысле) — совокупность информации, характеризующая существенные свойства и состояния объекта, процесса, явления, а также взаимосвязь с внешним миром.

// pascalabc.net 3.2, сборка 1353 от 27.11.2016 // внимание! если программа не работает, обновите версию! begin   var dig: =['0'..'9'];   var glas: =['a','e','i','o','u','y'];   var sogl: set of char: =['a'..'z']-glas;   var alpha: ='0123456789abcdefghijklmnopqrstuvwxyz';   var n: =readinteger('количество символов: ');   var a: =seqrandom(n,1,36).select(k-> alpha[k]).toarray;   a.println;   a.where(c-> c in glas).concat(a.where(c-> c in .       concat(a.where(c-> c in end. пример количество символов: 50 xkdh00nhw8qr32cgcxiwm8ewbnqagmiquew3e6bc7rs2a05ids ieaiueeai008328367205xkdhnhwqrcgcxwmwbnqgmqwbcrsds