Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
ninapopova197
23.11.2022 09:22 •
Информатика
Напишите этапы создания трёхмерного объекта.
👇
Увидеть ответ
Открыть все ответы
Ответ:
ПолинаКорышкова
23.11.2022
Var
a, b, c, d: real;
begin
write('Введите коэффициенты a,b,c ');
readln(a, b, c);
d := sqr(b) - 4 * a * c;
if d = 0 then
writeln('Корень один x = ', (-b / (2 * a))
else if d >0 then
writeln('x1 = ',(-b + sqrt(d)) / (2 * a), ' x2 = ',(-b - sqrt(d)) / (2 * a))
else writeln('Действительных корней нет');
end.
Тест №1
Введите коэффициенты a,b,c 1 -5 6
x1 = 3 x2 = 2
Тест №2
Введите коэффициенты a,b,c 1 2 3
Действительных корней нет
Тест №3
Введите коэффициенты a,b,c 1 0 0
Корень один x = 0
4,5
(70 оценок)
Ответ:
viktoriag373
23.11.2022
25
[0, 0, "a", 1]
[1, 1, "b", 2]
[1, 2, "bb", 3]
[2, 2, "b", 4]
[1, 3, "bbb", 5]
[2, 3, "bb", 6]
[3, 3, "b", 7]
[1, 4, "", 8]
[2, 4, "bbb", 9]
[3, 4, "bb", 10]
[4, 4, "b", 11]
[1, 5, "", 12]
[2, 5, "", 13]
[3, 5, "bbb", 14]
[4, 5, "bb", 15]
[5, 5, "b", 16]
[0, 6, "aa", 17]
[6, 6, "a", 18]
[6, 7, "aa", 19]
[7, 7, "a", 20]
[6, 8, "aaa", 21]
[7, 8, "aa", 22]
[8, 8, "a", 23]
[5, 9, "baaab", 24]
[9, 9, "b", 25]
s = "aaaab"
n = 0
for r in 0...s.size
for l in 0..r
t = s[l..r]
if t.reverse == t
n += 1
p [l,r,t,n]
end
end
end
4,6
(8 оценок)
Это интересно:
К
Компьютеры-и-электроника
25.10.2022
Как словить покемона Кресселию...
02.01.2020
Как стать серьезным: 10 советов от успешных людей...
С
Семейная-жизнь
21.02.2020
Как справиться с ребенком, который постоянно говорит нет...
К
Компьютеры-и-электроника
26.11.2021
Как легко и быстро распечатывать с Samsung Galaxy Note 3...
О
Образование-и-коммуникации
08.06.2023
Как найти площадь поверхности цилиндра: простой и понятный подход...
К
Компьютеры-и-электроника
25.08.2020
Как удалить иконки с рабочего стола (Windows)...
К
Компьютеры-и-электроника
27.05.2020
Как увеличить масштаб страницы браузера...
Ф
Философия-и-религия
03.06.2020
Практики тибетского буддизма: как начать и что ожидать...
С
Стиль-и-уход-за-собой
28.01.2022
Как окрасить волосы в технике Dip-Dye при помощи Kool Aid?...
С
Стиль-и-уход-за-собой
02.12.2022
Как создать свой неповторимый образ в стиле 80х...
Новые ответы от MOGZ: Информатика
Mrrezed
13.07.2020
Организация вычислений в микропроцессорной бцвм...
жанель93
09.09.2021
Решите в вывести таблицу умножения чисел (от 4 до 10) на число, заданное с клавиатуры....
Dianaasdfg
28.04.2023
Дан массив вещественных чисел.вывести на экран новое состояние массива в котором ко всем нулевым элементам прибавить n из всех положительных элементов вычесть a, ко...
Ивангаййййййййй
31.07.2022
Написать программу на любом языке программирования по этой схеме...
katyaadushkina3006
22.11.2020
Решить эту систему нелинейных уравнений с методом ньютона в excel...
STONEISLAND1488
09.02.2023
После выполнения команды присваивания х:=х+у значение переменной х равна 10, а значение переменной у равно 17.Чему были равны значения переменной х и у до выполнения...
irazatula05
28.11.2021
Создать в массиве набор из двузначных чисел M четырёхзначных чисел, у которых есть одинаковые цифры. Например 1231,5358,4229,7271. Код на языке C++ ....
miroonchickk
14.07.2020
Ежедневно в течение октября измерялась температура воздуха в г. мурманске, а данные занесли в одномерный массива. определить, в какие дни наблюдалась самая низкая...
GenGis
14.07.2020
Папа с двумя сыновьями отправился в поход.на их пути встретилась река.у берега-плот.он выдерживает только папу или двух сыновей.как переправиться на другой берег папе...
rudembatalov
14.07.2020
Напишите программу,в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён ноль) и подсчет количества введеных чисел .используйте...
MOGZ ответил
Знайдіть рівно дію сил зображених на малюнку...
1. Изобразите на координатной прямой и запишите пересечение и объединение...
1. Из данного текста выпишите 3 предложения, в которых есть однородные...
Что подразумевается под термином репрессии? 2. Какими методами...
Поршни, изображенные на рисунке, площади которых S1=600 см2 и...
Мәтндегі деректер мен ақпараттарды пайдаланып қүрделі жоспар құр...
Дві особи стріляють в мішень по одному разу. Подія А - у мішень...
Девочка, сидящая за столом, рисовала цветущий сад синтаксический...
Сделайте номер 5 с подробным решением (в столбик), заранее...
Reading Task 1. Read the text and do the task Tsunamis are a series...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
a, b, c, d: real;
begin
write('Введите коэффициенты a,b,c ');
readln(a, b, c);
d := sqr(b) - 4 * a * c;
if d = 0 then
writeln('Корень один x = ', (-b / (2 * a))
else if d >0 then
writeln('x1 = ',(-b + sqrt(d)) / (2 * a), ' x2 = ',(-b - sqrt(d)) / (2 * a))
else writeln('Действительных корней нет');
end.
Тест №1
Введите коэффициенты a,b,c 1 -5 6
x1 = 3 x2 = 2
Тест №2
Введите коэффициенты a,b,c 1 2 3
Действительных корней нет
Тест №3
Введите коэффициенты a,b,c 1 0 0
Корень один x = 0