Составить программу, выводящую количество корней квадратного уравнения
5-9 класс
|
var a,b,c:integer; q:real;beginwriteln ('a*x^2+b*x+c');writeln ('vvedite a');readln (a);writeln ('vvedite b');readln (b);writeln ('vvedite C');readln (c);q:=b*b-4*a*c;If q>0 then writeln (2);If q=0 then writeln (1);If q<0 then writeln (0);end.
Var
a,b,c:integer;
q:real;
Begin
Writeln ('a*x^2+b*x+c');
Write('Введите A: '); readln(a);
Write('Введите B: '); readln(b);
Write('Введите C: '); readln(c);
q:=b*b-4*a*c;
if q>0 then writeln ('2 корня');
if q=0 then writeln ('1 корень');
if q<0 then writeln ('0 корней');
End.
Другие вопросы из категории
памяти этого компьютера,если на странице разрешается 40 строк по 60 символов в каждой строке,а для хранения одного символа требуется 8 битов
предложенных вариантов выберите наиболее подходящий размер файла.напоминаю что 1 дюйм=2.54см.
а)450.56 мбаит
б)4400 кбайт
в)0.44 мбайт
г)1151 кбаит
объект телефизор признаки юбъекта
Читайте также
2.Составьте программу вычисления количества трёхзначных чисел палиндромов ( чисел, которые читаются одинаково слева направо и справа налево).
3.Найти двухзначные числа, которые делятся на сумму своих цифр
4.Составьте программу вывода количества трёхзначных чисел, у которых цифры упорядочены строго по убыванию.
РЕБЯТА СРОЧНО!!!!!!!!!!!
значении корней квадратного уравнения.
равносторонний,равнобедренный или какой либо другой.
Вот ещё одна
Составить программу:Даны а,b,c-целые числа.Если они большн 0-вычислите сумму их квадратов;а если хотя бы одно из них четно-вычислите их сумму и произведение.
Пожалуйста ребят.
Написать программу для вычисления корней квадратного уравнения: ax^2+bc+c=0.