Ax²+bx+c=0 пример: 2х²+х-6=0 a=2 b=1 c=-6 1)d(дискриминант)=b²-4*a*c d=(1)²-4*2*(-6)=49> 0=> 2 разных корня °если: d> 0=> 2 разных корня, °если: d< 0=> корней нет °если: d=0=> 2 одинаковых корня 2)x1,2=-b±√d/2*a x1=-1+√49/2*2=-1+7/4=6: 4=3/2=(одна целая,одна вторая)-это запиши в цифрах x2=-1-√49/2*2=-1-7/4=-8/4=-2 ответ: -2; (одна целая,одна вторая) вот и все)
Спасибо
Ответ дал: Гость
программа №4program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end.
№5program p_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end.
Ответ дал: Гость
если что-то будет не так - напиши, испралю. у меня простог нет возможности проверить, выполняется
program string_7; var s: string; k,l,i: integer; begin write('введите строку: '); readln(s); k: =0; l: =0; for i: =1 to length(s) dobegin if s[i]='н' then k: =k+1; if s[i]='м' then l: =l+1end; writeln('н=',k); writeln('м=',l); if k> l then writeln ('больше букв н'); if k< l thenwriteln ('больше букв м'); if (k = 0) and (l = 0) thenwriteln ('таких букв нет'); end.
так будет элсе выкидывало бы что букв н больше, если бы ни м ни н не встретилось))
Популярные вопросы