М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
FvitalikA
FvitalikA
08.03.2023 01:13 •  Информатика

Составьте программу решения квадратного уравнения ax(2) + bx + c = 0. коэффициенты a, b, c введите с клавиатуры. выведите на экран значения корней x1, x2, если уравнение имеет два корня, значение x, если уравнение имеет один корень, или сообщение "нет корней", если уравнение не имеет корней на питоне

👇
Открыть все ответы
Ответ:
milana20101986
milana20101986
08.03.2023
PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018Внимание! Если программа не работает, обновите версию!

begin

 var n := ReadInteger('Размер массива:');

 var k := ReadInteger('Максимальное значение элемента:');

 var a := ArrRandom(n, 0, k);

 a.Println;

 var b := ArrRandom(n, 0, k);

 b.Println;

 var c := a.Zip(b, (p, q)-> p + q).ToArray;

 c.Println;

 k := c.Max;

 var v := ArrFill(k + 1, 0);

 for var i := 0 to c.High do

   v[c[i]] += 1;

 var d := 0;

 for var j := 0 to k do

   for var i := 0 to v[j] - 1 do

   begin

     c[d] := j;

     d += 1

   end;

 c.Println

end.

Размер массива: 15Максимальное значение элемента: 4031 11 31 28 10 30 16 38 24 25 11 38 0 29 3531 36 6 35 15 2 13 34 10 6 37 14 32 31 1062 47 37 63 25 32 29 72 34 31 48 52 32 60 4525 29 31 32 32 34 37 45 47 48 52 60 62 63 72
4,7(78 оценок)
Ответ:
belover
belover
08.03.2023
Код

#include <iostream>


using namespace std;


int main(){


   setlocale(LC_ALL, "Russian");


   string s;


   unsigned int yValue = 0, eValue = 0, sValue = 0;


   cout << "Введите строку: ";


   cin >> s;


   for(int i = 0; i < s.length(); i++){


       char t = s[i];


       switch(t){


  /*


  break нужен обязательно, так как после прохождения условия case оно прыгает на следующее,


  а когда в конце оно видит break, то мгновенно обрывают дальнейшие перескоки


  */


           case 'Y': yValue = yValue + 1; break;  

           case 'e': eValue = eValue + 1; break;


           case 's': sValue = sValue + 1; break;


       }


   }


   if((yValue >= 1) && (eValue >= 1) && (sValue >= 1)){


       cout << "Да, все буквы слова 'Yes' содержатся в введённом предложении.";


   }


   else{


       cout << "Нет, не все буквы слова 'Yes' содержатся в введённом предложении.";


   }


   return 0;


}


Проверка

Введите строку: YYah                            

Нет, не все буквы слова 'Yes' содержатся в введённом предложении.



Введите строку: YesYesyesYesyesYes                                        

Да, все буквы слова 'Yes' содержатся в введённом предложении.

4,5(53 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ