Question

Дам 100 баллов!! Сделайте в паскале, то что выделенно! Задание небольшие!!!
Хотябы 3 сделайте!!

Answer 1

1) Program Sq1;

Var a, b, c, k : Real;

Begin
  Writeln ('Введите a');
  Readln (a);
Writeln ('Введите b');
Readln (b);
Writeln ('Введите c');
Readln (c);
  k:=(b+sqrt(b^2+4*a*c))/(2*a);
     If a=0 Then Writeln ('Решений нет! ')
     Else
       Writeln ('k=', k:2:2)
       End;
End.

Answer 2

Спасибо

Answer 3

5) Program Scc;

Var x, y : Real;

Begin
Writeln ('Введите x');
Readln (x);
y:=abs(x^2-x^3)-7*x/(x^3-15*x);
If x^3-15*x=0 Then Writeln ('Решений нет! ')
Else
Writeln ('y=', y:2:2)
End;
End.