№1 даны два числа а и в. большее из этих чисел ументшается на 3, а меньшее удваивается. составить амгоритм. ax2+bx+c=0 y=|x-1|

Begin write  ('vvedite 2 chisla:   ');   readln  (a, b); if  a  > b  then begin a  : = a/3; b : = b*2; end; if b > a then  begin b : = b/3; a : = a*2; end; writeln  (a, b); end. ax^2  +  bx  + с  =  0  - это длинная  программа.  нужно  учесть  такие  случаи: 1)  а  =  0,  x  = -c/b; 2)  a =/=0, d=b*b-4*a*c  >   0,  x1  =  (-b - sqrt(d)) /  (2*a),  x2 = (-b + sqrt(d)) / (2*a); 3)  d = 0,  x1  = x2 = -b /  (2*a); 4) d  <   0,  действительных корней нет.  комплексные  корни,  если  нужно: x1 = -b  /  (2*a) - i*sqrt(-d)) / (2*a),  x2 = -b  /  (2*a) + i*sqrt(-d)) / (2*a); y  =  abs(x-1)  -  тут  вообще  делать  нечего.  подставляй  разные  х  и  вычисляй  у.

Код pascal: 1) var     s: real;     n: integer; begin write('n = '); readln(n); s: =0; for n: = 1 to n do       s: =s+1/sqr(2*n+1); writeln('s = ',s); end. 2) var x,y: real; begin write('x = '); readln(x); write('y = '); readln(y); if (x = 0)and(y < > 0) then writeln('ось абсцисс') else if (y = 0)and(x < > 0) then writeln('ось ординат')         else if (x = 0)and(y = 0) then writeln('начало координат')                   else writeln('(',x,',',y,') не принадлежит осям координат') end.

1) cls randomize timer input "n = ", n dim d%(n) print "d("; n; "): "; k = 0 for i = 1 to n       d%(i) = rnd * (2 * n + 1) - n       print " "; d%(i); next i print input "t = ", t for i = 1 to n       if d%(i) = t then             k = k + 1       end if next i print "k = "; k end 2) cls randomize timer dim d%(14), c%(14) print "d(14): "; k = 0 for i = 1 to 14       d%(i) = rnd * 41 - 20       print " "; d%(i);       if d%(i) < 7 then             k = k + 1             c%(k) = d%(i)       end if next i print print "c("; k; "): "; for i = 1 to k       print " "; c%(i); next i end