Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
StopXpeople
10.09.2022 23:12 •
Информатика
с информатикой :( учительница дала задание а мы тему не проходили
Показать ответ
Ответ:
evgenijpetrov
08.03.2023 07:22
Vara,b,c,d,x1,x2: real;
begin
writeln('Дано уравнение вида ax^2+bx+c=0');
Writeln ('Укажи переменную "a"');
readln(a);
Writeln ('Укажи переменную "b"');
readln(b);
Writeln ('Укажи переменную "c"');
readln(c);
if a = 0
then writeln('Не квадратное уравнение!')
else begin
d:= sqr(b)-4*a*c;
if d < 0 then writeln('Нет корней')
else begin
x1:= (-b+sqrt(d))/2*a;
x2:= (-b-sqrt(d))/2*a;
writeln ('X1 =',x1,' X2 =',x2);
end;
end;
end.
0,0
(0 оценок)
Ответ:
Ram543
13.12.2020 06:29
While (tnum != 0) //tnum, tden - числитель и знаменатель искомой дроби
{
if (tnum < tden)
{
temp = tnum;
tnum = tden;
tden = temp;
}
tnum = tnum - tden;
}
gcd = tden; //вычисляем наибольший общий делитель
numerator = numerator / gcd; //делим числитель и знаменатель на
НОД, получаем сокращенную дробь
denominator = denominator / gcd;
0,0
(0 оценок)
Популярные вопросы: Информатика
KaterinYu31
18.05.2020 23:48
оч Заполни таблицу. Команда Координаты точки Начальная точка x,y сместиться на вектор (2,1) (x+ ,y+ ) сместиться на вектор (7,10) (x+ ,y+ ) сместиться на вектор (1,−3)...
olegtab34
15.02.2020 06:10
Разгадай и запиши основные понятия темы сеть. в словах отображены только гласные буквы данных слов. _е__е_ _о_е_ __о_о_о_ __о_ай_е_...
Kiryshka2532
25.11.2020 07:57
12. Значення словаnd, or, not. А) Если, то, иначе.B) и, или, не.C) И, то, если.D) Не, то, и.E) или, если не....
V1a9
02.08.2022 16:50
Познакомьтесь с альтернативной частью кода ASCII, используемой в школьных компьютерах. Выясните, соблюдается ли принцип последовательного кодирования алфавита из русских...
Konfetaz
18.02.2023 13:31
Задание на фото. Можно с решением....
kristpan2004p0c22v
17.09.2022 03:06
Надо найти массу 0.6 моль кислорода, если можно, с объяснением )...
sasasnikas
30.09.2020 12:56
Как идеи просвещения отразились на развитии , живописи, музыки? в творчестве каких писателей, художников, композиторов нашли отражение новые идеи?...
bessmertny69
04.07.2021 04:16
Виконати вираз (якщо можна то по діях) 12 1/2+(17 1/2-8/5): (11 2/3: 7/9+0,6*10)...
mamrykovaksun
18.03.2021 14:54
Основные элементы сюжета рассказа в.м. шукшина «микроскоп»...
bropomogi
11.01.2022 01:44
Вкакой точке пересекает ось х и ось у график функции у=1,75х - 0,3...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
writeln('Дано уравнение вида ax^2+bx+c=0');
Writeln ('Укажи переменную "a"');
readln(a);
Writeln ('Укажи переменную "b"');
readln(b);
Writeln ('Укажи переменную "c"');
readln(c);
if a = 0
then writeln('Не квадратное уравнение!')
else begin
d:= sqr(b)-4*a*c;
if d < 0 then writeln('Нет корней')
else begin
x1:= (-b+sqrt(d))/2*a;
x2:= (-b-sqrt(d))/2*a;
writeln ('X1 =',x1,' X2 =',x2);
end;
end;
end.
{
if (tnum < tden)
{
temp = tnum;
tnum = tden;
tden = temp;
}
tnum = tnum - tden;
}
gcd = tden; //вычисляем наибольший общий делитель
numerator = numerator / gcd; //делим числитель и знаменатель на
НОД, получаем сокращенную дробь
denominator = denominator / gcd;