Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Artem58268343
11.05.2023 00:08 •
Информатика
Напишите программу в turbo pascal: найти корни квадратного уравнения ax^2+bx+c
Показать ответ
Ответ:
dina9992
20.07.2020 18:58
Var a,b,c,d,x,x1,x2:real;
begin
readln(a.b.c);
d:=sqr(b) - 4*a*c;
if d<0 then
write('нет корней')
else
If d=0 then begin
x:=-b/(2*a);
write(x); end
else begin
x1:=(-b+sqrt(d)/(2*a);
x2:=(-b-sqrt(d))/(2*a);
write(x1,x2);end;
readln
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Catherina4002
22.01.2021 21:27
Почему майкрософт стор показывает то что игра установлена хотя это не так КАК исправить...
RaminaMirzaeva
17.09.2021 14:36
Запишите ЭТУ ПРОГРАММУ НА ШКОЛЬНОМ АЛГОРИТМИЧЕСКОМ ЯЗЫКЕ УМОЛЯЮ! programm n_11; var a, b, c, : real; var d: real; var x, x1, x2: real; begin wrireln ( Решение квадратного...
deni9514
02.02.2023 22:52
Что такое cs:go и как в нее играть...
topciknazaraakinceva
18.02.2023 04:37
V0+at²/2 запишите на школьном алгоритмическим языке. /- черта дробей....
wrrrr
19.08.2021 20:16
Как программировать гироскопический датчик...
aleksandraluka
13.02.2020 21:49
Отвечаем на вопросы 1. Сколько цистон распознает датчик цвета?2. В какой палитре расположен блок Старт?3. Как робот движется по линии?4. Для чего нужен датчик цвета?...
VladSuperMozg
04.03.2021 18:50
выберете варианты ответа при которых переменная х принимает тип данных. x=455%10 str(455%10) x=15//4 x=8.9-5 bool(5/4)...
katenkaklimcuk
15.04.2023 08:58
Богдан, Данило та Максим намагаються придумати назву для команди на одне цiкаве змагання. За правилами змагань назва команди повинна складатися з малих латинських лiтер...
darasnezko297
18.01.2022 11:16
Задать целочисленный массив из десяти элементов (ввод с клавиатуры). вывести на экран полученный массив. найти сумму элементом массива и вывести на экран...
vanuhask12
29.11.2021 13:24
Во дворец на свадьбу принцессы и трубадура были приглашены 420 знатных вельмож. за каждым из четырёх больших столов сидели 80 человек. остальные гости разместились за пятью...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(a.b.c);
d:=sqr(b) - 4*a*c;
if d<0 then
write('нет корней')
else
If d=0 then begin
x:=-b/(2*a);
write(x); end
else begin
x1:=(-b+sqrt(d)/(2*a);
x2:=(-b-sqrt(d))/(2*a);
write(x1,x2);end;
readln
end.