Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
р треугольника= сложить все стороны
program yravnenie;
var a,b,c,d,x1,x2,p,q: real; begin repeat write('a= '); readln(a); if a=0 then writeln('error: a=0. enter another value'); until a< > 0; write('b= '); readln(b); write('c= '); readln(c); p: =b/a; q: =c/a; d: =sqr(p/2)-q; if d> 0 then begin writeln('x1 = ',-p/2-sqrt(d): 0: 5); writeln('x2 = ',-p/2+sqrt(d): 0: 5); end else if d=0 then writeln('x1 = x2 = ',-p/2: 0: 5) else begin writeln('x1 = ',-p/2: 0: 5,'-i*',sqrt(-d): 0: 5); writeln('x2 = ',-p/2: 0: 5,'+i*',sqrt(-d): 0: 5); end; readln; end.
если 25(из которых 15 сто пудов в школьной и 10 смешанные) берут в школьной, то 10 человек берут в районной.
если 20(из которых 10 сто пудов берут в районной 10 смешанные), то 15 в школьной
получается 1) 10 человек; 2)15 человек; 3)10 чкловек; 4)10 чел; 5)15 чел.
всегда брать столько чтоб спичек на столе оставалось четное
количество и при этом не делилось на 3
т.е. 4,8,12
Популярные вопросы