IDONTNONOTHING
07.07.2022 00:54

нужна На вход программы подаётся запись квадратного уравнения. Гарантируется, что коэффициент
уравнения при x 2 не равен нулю, все коэффициенты определены и корни вещественные.
Напишите программу, которая находит корни уравнения.
Входные данные
Входная строка содержит запись квадратного уравнения, в которой используются специальные
обозначения: x 2 обозначается как «a», x обозначается как «b». Например, уравнение 2 x 2 - 4 x -
6 запишется в виде строки 2a-4b-6 . Коэффициенты уравнения могут быть вещественными.
Выходные данные
Программа должна вывести два вещественных корня квадратного уравнения (в порядке
возрастания) в одной строке, разделив их пробелом. Значения должны быть выведены с тремя
знаками в дробной части.
Примеры
входные данные
2a-4b-6
выходные данные
-1.000 3.000

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
arifmametov1
20.05.2020 14:17
Program lol (input, output);
var a, n, b, i, p,s,g m:integer;
c:real;
begin
n:=Random(10000);
writeln (n);
a:=n;
b:=0;
c:=0;
p:=1;
g:=1;
while a <> 0 do
begin
a:=a div 10;
b:=b+1;
end;
while b <> 0 do
begin
p:=1;
for m:=1 to b do
p:=p*10;
s:=(n mod p) div (p div 10);
c:=c+s;
g:=g*s;
b:=b-1;
end;
writeln (c);
writeln (g);
end.

program lol (input, output);
var a, b, i, z:integer;
begin
b:=0;
a:=3;
z:=0;
while a > 2 do
begin
read (a);
z:=0;
for I:=2 to a do
begin
if a mod I = 0 then
begin
z:=z+1;
if (a=I) and (z=1) then
b:=b+1;
end;
end;
end;
writeln (b);
end.
0,0(0 оценок)
Ответ:
madina319
20.05.2020 14:17
Program lol (input, output);
var a, n, b, i, p,s,g m:integer;
c:real;
begin
n:=Random(10000);
writeln (n);
a:=n;
b:=0;
c:=0;
p:=1;
g:=1;
while a <> 0 do
begin
a:=a div 10;
b:=b+1;
end;
while b <> 0 do
begin
p:=1;
for m:=1 to b do
p:=p*10;
s:=(n mod p) div (p div 10);
c:=c+s;
g:=g*s;
b:=b-1;
end;
writeln (c);
writeln (g);
end.

program lol (input, output);
var a, b, i, z:integer;
begin
b:=0;
a:=3;
z:=0;
while a > 2 do
begin
read (a);
z:=0;
for I:=2 to a do
begin
if a mod I = 0 then
begin
z:=z+1;
if (a=I) and (z=1) then
b:=b+1;
end;
end;
end;
writeln (b);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота