Program n1;
var a,b: real;
begin
writeln('программа для решения уравнения вида y=ax+b');
write('a=');
readln(a);
write('b=');
readln(b);
writeln('введенное уравнение: ',a,'x+(',b,')=0');
write('x=',-b/a);
end.
Тут будет 57^10.....................................................
Кружок 10 поставь сверху на кружки 2 и 3
Кружки 1 и 4 - внизу, возле 8 и 9.....
10
2 3
5 6 7
1 8 9 4
Вот так сделай
<span>Это мы не проходили,
Это нам не задавали</span>!
А квадратное уравнение решаемо =)
var a, b, c, d, x1, x2: real;
begin
readln(a, b, c);
d := b * b - 4 * a * c;
if d >= 0 then begin
if d <> 0 then begin
x1 := (-b + sqrt(d)) / 2 * a;
x2 := (-b - sqrt(d)) / 2 * a;
writeln('x1 = ', x1:4:2, ', x2 = ', x2:4:2)
end
else begin
x1 := -(b / 2 * a);
writeln('x = ', x1:4:2)
end
end
else begin
writeln('Нет решения');
end
end.
Удачи тебе с остальными)