Написать в паскале 111. мышонок джерри улепетывает к своей норке по прямой. успеет ли кот том догнать джерри, если джерри находится как раз на полпути между томом и норкой? 118. даны коэффициенты квадратного уравнения a, b,c. найти действительные корни этого уравнения. 122. можно ли прямоугольный пакет размерами a, b,c положить в чемодан размерами x, y,z? 123.составить программу вычисления значения функций: а)1 при x> = 0; y=0 при x< 0 б)x^2 при x> 0 y=-x при x< =0 в)1 при x> =1 y=0 при -11 y=0 при -1< =x< =1 x+1 при x< -1

118. даны коэффициенты квадратного уравнения a,b,c. найти действительные корни этого уравнения. program kv_ur; var a,b,c,x1,x2,d: real; begin writeln ('для решения квадратного уравнения'); writeln ('введите коэффициент a'); readln (a); writeln ('введите коэффициент b'); readln (b); writeln ('введите коэффициент c'); readln (c); d: =sqr(b)-4*a*c; if d< 0 then writeln ('так как дискрименант ',d,'< 0 уравнение не имеет решений');         begin            if d=0 then                            begin                                    x1: =-b/(2*a);                                     writeln ('так как дискриминант равен 0 уравнение имеет один корень: ');                                     writeln(x1);                             end;                           if d> 0 then                            begin                                     x1: =(-b- sqrt(sqr(b)-4*a*c))/2*a;                                     x2: =(-b+ sqrt(sqr(b)-4*a*c))/2*a;                                     writeln ('так как дискриминант ',d,'> 0 уравнение имеет два корня: ');                                     writeln ('x1=', x1, ' и x2=', x2);                             end;   end; end.   122. можно ли прямоугольный пакет размерами a,b,c положить в чемодан размерами x,y,z?   program chemodan; var a,b,c,x,y,z: real; begin writeln ('введите размеры пакета');   writeln ('введите длину a'); readln (a); writeln ('введите ширину b'); readln (b); writeln ('введите высоту c'); readln (c); writeln ('введите размеры чемодана'); writeln ('введите длину х'); readln (x); writeln ('введите ширину y'); readln (y); writeln ('введите высоту z'); readln (z);   if (a< =x) and (b< =y) and (c< =z) then writeln ('пакет можно положить') else writeln ('пакет положить нельзя'); end.  

1 simvol zanimaet 1 bait(tak kak imeem tekst);

tekst shpargalki sostavliaet 50*50=2500 simvolov-2500 bait.

da + eshe 0,3*2500=750.

vsego 2500+750=3250 bait.

(неясно-пиши в личку)