Сделать программу в poscal ABC
5-9 класс
|
Program llalala;
Uses crt;
Var a,b,c,d,x1,x2,x:real;
Begin
Clrscr;
Readln(a);
Readln(b);
Readln(c);
If a<>0 then Begin
d:=b*b-4a*c;
If d>=0 then Begin
x1:=(-b+sqrt(d))/2*a;
x2:=(-b-sqrt(d))/2*a;
Writeln('x1=',x1);
Writeln('x2=',x2);
End;
else writeln('Нет вещественных корней');
End;
else Begin
x:=-c/b;
Writeln('x=',x);
End;
End.
Другие вопросы из категории
Интервалы значений адресов 0..255 указаны неверно;4) IP-адрес формируется без использования иерархических отношений.
черно-белое изображение, которому будут
соответствовать двоичные коды.
внешняя память, оперативная память, постоянная память, носители информации, накопители информации! Как примерно это сделать?
памяти этого компьютера, если на странице размещается 40 строк по 60 символов в каждой строке, а для хранения одного символа требуется 8 Битов?
Читайте также
координаты х и у и программа проверяет, подходит ли эта точка к графику или нет. Пример на 2 фото.
Очень нужно. 80 баллов
R, S = Pi*R2 ( R в квадрате ). Pi = 3.14
P.S Напишите полную программу
компьютере( то есть проверить будет ли работать программа)