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

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.

Comments

Спасибо

---

Сделай ещё 5

---

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.

---

4) Program vvv;

Var x, y : Real;

Begin
Writeln ('Введите x');
Readln (x);
y:=x-x^3/3+x^5/5;
Writeln ('y=', y:2:2)
End.

---

Спасибо