Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
nekit2409
22.08.2020 08:34 •
Информатика
Составьте алгоритм вычисления дискриминанта!
Показать ответ
Ответ:
DedMazaj
01.07.2020 18:57
Uses crt;
procedure Disk(a,b,c:integer; var d:real);
begin
D:=b*b-4*a*c;
end;
var a,b,c:integer;
k:real;
begin
ClrScr;
Writeln ('Vvedite koef. a,b,c');
Readln(a,b,c);
Disk(a,b,c,k);
Writeln('Disk ',k);
Readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Alferd
17.03.2020 10:58
Файл размером 1200 кбайт передаётся через некоторое соединение в течение 20 секунд. определите размер файла (в кбайт), который можно передать через это соединение за 30 секунд. в ответе...
BloodyMary001
23.03.2020 04:43
Доступ к файлу txt.net, находящемуся на сервере gov.org, осуществляется по протоколу http. фрагменты адреса файла закодированы буквами от а до ж. запишите последовательность этих букв,...
69fff96fff69
23.03.2020 04:43
Сообщение, информационный объем которого равен 24 битам, соответствует объему в байтах а) 5 б) 2 в) 3 г) 4...
миланка20051
23.03.2020 04:43
Автомат получает на вход два двузначных десятичных числа. по полученным числам строится новое десятичное число по следующим правилам. 1. вычисляются два числа — сумма цифр первого...
wwwghg
31.01.2020 21:31
Пять пословиц на казахском языке с числительными...
Lolkek3332
31.01.2020 21:31
Что легенда а что реально о ясноглазой речке и гранитном исполине...
LexaCR7
31.01.2020 21:31
Две морские черепахи одновременно начали движение по берегу навстречу друг другу и встретились через 15 минут. скорость одной была 7 м/мин, а другой – 6 м/мин. на каком расстоянии...
PollyHyper
31.01.2020 21:31
Вкаких случаях перед словом ставится the...
qrfeq16
31.01.2020 21:31
Нужны названия приборов(их всего 3)...
KseniaEnrrgy
31.01.2020 21:31
1) в сентябре в изостудию поступило 9 через 3 месяца их число увеличилось на 300% сколько теперь в изостудии 2) на ярмарке цены на товары снизили на 25% примерно на сколько рублей...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
procedure Disk(a,b,c:integer; var d:real);
begin
D:=b*b-4*a*c;
end;
var a,b,c:integer;
k:real;
begin
ClrScr;
Writeln ('Vvedite koef. a,b,c');
Readln(a,b,c);
Disk(a,b,c,k);
Writeln('Disk ',k);
Readln;
end.