Главная arrow icon Вопросы arrow icon Учеба и наука arrow icon Информатика arrow icon помогите решить 14 и 15 билеты…

помогите решить 14 и 15 билеты . пожалуйста - вопрос №277981

помогите решить билеты 14 и 15. 

помогите решить 14 и 15 билеты

ololol
27.05.12
Учеба и наука / Информатика
2 ответа

Лучший ответ по мнению автора

Валентина

Билет 14

изображение из вопроса

 изображение из вопроса
28.05.12
Лучший ответ по мнению автора

Другие ответы

Валентина

Билет 15

program kvur;

var
 a, b, c, d,x1, x2: real;

begin

writeln('Введите коэффициенты уравнения');

readln(a, b, c);
d := sqr(b) — 4 * a * c;
if (d > 0) then
begin
x1 := (-b + sqrt(d)) / (2 * a);
x2 := (-b — sqrt(d)) / (2 * a);
Writeln('Два корня: ', x1:10:2, x2:10:2)

end

else if (d = 0) then
begin
 x1 := -b/ (2 * a);
 Writeln('Два одинаковых корня: ', x1:10:2)

end

else  

  Writeln('Корней нет');
readln 
end.
28.05.12

Еva
Рейтинг: 121 998
6-й в Учебе и науке
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
  • карты visa
  • карты master card
  • карты maestro
  • карты МИР
Мы используем файлы cookie. Пользуясь сайтом, вы принимаете условия нашего соглашения. Принять Детальнее