Ответы на вопрос:
pascalabc.net
begin
var(a,b,c) : = readreal3;
var d : = b*b-4*a*c;
if d< 0 then
print('нет действительных корней')
else if d=0 then
print('x1, x2 =', -b/2/a)
else
begin
d : =sqrt(d);
print('x1 =', (-b -d)/(2*a),
' x2 =', (-b +d)/(2*a))
end;
end.
Таких файлов 16.
Объяснение:
Спустимся в каталог Проза. В строке поиска введём «*.txt», где символ * — любое количество символов. Результатом поискового запроса будет список всех файлов в подкаталогах каталога Проза с расширением .txt. Таких файлов 16.
Популярно: Информатика
-
ilyafedoseev22.03.2022 23:50
-
sashka158612.01.2021 02:40
-
Сани5606.06.2021 21:59
-
minakim28mina28.07.2022 22:27
-
SaminaR10.04.2021 01:48
-
Gear228man10.03.2022 23:21
-
Abdresh11.06.2023 17:54
-
ЗнатокНа502.09.2020 16:53
-
нури4316.08.2021 07:42
-
gulya10417.06.2021 13:31