Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
27 декабря 2022 03:37
661
Напишите программу которая вычисляет дискрименант квадратного уравнения (в паскале)
2
ответа
У тебя написано только дискриминант. Я написал, но мне кажется тебе нужны были корни
Var a,b,c,d:integer;
begin
read(a,b,c);
d:=b*b-4*a*c;
writeln(d);
end.
Var a,b,c,d:integer;
begin
read(a,b,c);
d:=b*b-4*a*c;
writeln(d);
end.
0
·
Хороший ответ
29 декабря 2022 03:37
Var a,b,c,d:integer;
begin
writeln('Введите коэффициенты a, b, c:');
readln(a,b,c);
d:=b*b-4*a*c;
writeln('D = ',d);
end.
Пример:
Введите коэффициенты a, b, c:
5 2 8
D = -156
begin
writeln('Введите коэффициенты a, b, c:');
readln(a,b,c);
d:=b*b-4*a*c;
writeln('D = ',d);
end.
Пример:
Введите коэффициенты a, b, c:
5 2 8
D = -156
0
29 декабря 2022 03:37
Остались вопросы?
Еще вопросы по категории Информатика
Объём скачанной информации I 900 Мбайт. Скорость передачи информации о = 24 Мбит/с. Определить время скачивания ролика t-? Обрати внимание, что время...
fоr i in rаngе( d, 63, c): рrint ( i, end=" " ) В результате работы этого фрагмента программы на эк...
1) За единицу измерения количества информации принят… 1. 1 бод 2. 1 бит 3. 1 байт 4. 1 Кбайт...
В результате проведенных изменений текстовый файл был перекодирован из кодировки, выполненной с помощью алфавита содержащего 1024 символа в кодировку...
Старший помощник лом оказался старательным учеником чтобы порадовать капитана Врунгеля он выучил морскую Семафорная Азбука которой каждая буква кодиру...