Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
ЯнаLove7
04.02.2022 15:05 •
Информатика
Создать файл целых чисел, содержащий четное количество элементов. Удалить из данного файла нечетные элементы.
Программа в
👇
Увидеть ответ
Открыть все ответы
Ответ:
ПолинаКорышкова
04.02.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
04.02.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 оценок)
Это интересно:
М
Мир-работы
31.01.2020
Как собрать детскую кроватку: подробная инструкция...
П
Питомцы-и-животные
04.01.2023
Как растить котят: основные правила и советы...
07.06.2020
Как перестать сомневаться: 10 простых шагов...
С
Стиль-и-уход-за-собой
06.12.2022
7 шагов к переходу от темных волос к светлым: все, что вы должны знать, чтобы изменить свой цвет волос...
О
Образование-и-коммуникации
09.06.2023
Как стать онлайн-корректором: советы и требования...
О
Образование-и-коммуникации
08.05.2022
Как нарисовать Гарри Стайлса: Подробный гид для начинающих художников...
Х
Хобби-и-рукоделие
01.02.2020
Как пользоваться моноподом: полезные советы и рекомендации...
В
Взаимоотношения
29.12.2020
Как игнорировать своего парня: 5 советов для девушек, которые хотят сохранить свою независимость...
С
Стиль-и-уход-за-собой
26.11.2020
Как сделать боб каре как у Пэрис Хилтон...
К
Кулинария-и-гостеприимство
31.05.2023
Как приготовить банановый смузи без блендера: простые и эффективные методы...
Новые ответы от MOGZ: Информатика
ruskei
04.07.2022
Сочинение по теме внешний накопитель( любой )...
ЭлькаКотикучитсяна5
04.07.2022
Дано натуральное число. определить количество четных цифр в нем. составное условие и более одного неполного условного оператора не использовать.(паскаль)...
DariKetrin
04.07.2022
Придумать ! (без интернета ). жили были монитор,клавиатура,память и процессор. жили они дружно пока не возник у них спор,кто из них главнее....
КоляКотик
04.07.2022
1.даны четыре целых числа,определить сколько из них чётных. 2.составить алгоритм решения квадратного уравнения,рассмотреть 3 случая значения дискриминанта(d 0,d=0,d 0)....
sumr212
01.02.2022
Как будет на языке прогромирования Android город Тверь?...
azs194karelin
23.03.2021
9. Сообщение 14-15, в разных ситуациях может быть вос- принято по-разному. Поясните, что оно может означать в следующих ситуациях....
kitty67
05.01.2023
В режиме разработчика в вырез строки нажал увеличить в два раза, как та так, точно не помню, он перезагрузился и появилось как на фото. Пробовал выйти разными не получается...
лчлвоу
15.02.2023
ЭТО ИНФОРМАТИКА не надо возводить в квадраты как в матем...
miroslavuvarovozq4v4
16.03.2020
В программе «:=» обозначает оператор присваивания, знаки «+», «-», «*» и «/» — соответственно операции сложения, вычитания, умножения и деления. Правила выполнения операций...
артёмсухааннеков
09.10.2021
Какие формулы невозможно набрать без использования редактора формул? Возможно несколько вариантов....
MOGZ ответил
Маленькая Баба-яга вызывала дождь. В первый раз на землю упали 32 мыши,...
На пути к замку Людоеда Кот в сапогах встретил крестьян: 20 из них косили...
Дюймовочка разложила 80 зёрен по кладовкам, по 40 зёрен в каждую. Сколько...
Жаба и её сын обедали на болоте. Жаба поймала к обеду 45 комаров, что...
У хозяйки три коровы: Зорька, Бурёнка и Пеструшка. Хозяйка надоила 92...
Маленькая Баба-яга училась колдовать. В первый день она выучила 32 заклинания,...
На праздничном столе для друзей крота было разложено угощение: на 10...
Две бригады коротышек сажали деревья вдоль улицы. Каждая бригада посадила...
Сколько существует двузначных чисел, в записи которых присутствует только...
Урфин Джюс оживил волшебным порошком 90 деревянных солдат. После первого...
Полный доступ к 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