Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 08.07.2017 16:48
- Информатика
- remove_red_eye 9077
- thumb_up 20
Ответы и объяснения 1
Program llalala;
Uses crt;
Var a,b,c,d,x1,x2,x:real;
Begin
Clrscr;
Readln(a);
Readln(b);
Readln(c);
If a0 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.
- 09.07.2017 21:20
- thumb_up 7
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.