Срочно. Номер 6 и 7. Информатика 9 класс.

Question

Срочно. Номер 6 и 7. Информатика 9 класс.

---

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)

begin
  var (S,M):=ReadInteger2('Введите возвраст Саши и Маши->');
  Println(S>M?'Саша старше':'Маша старше');
end.

Пример(1):
Введите возвраст Саши и Маши-> 12 14
Маша старше 

Пример(2):
Введите возвраст Саши и Маши-> 18 15
Саша старше 

Comments

Номер 6 уточните что сделать, то немного не понятно с чего выбирать

---

Составить программу вычисления корней квадратного уравнения по данным значениям его коэффициентов

---

begin
var (a,b,c):=ReadInteger3('Введите коефициенты->');
var d:=sqr(b)-4*a*c;
If d<0 <br> then Println('Корней нет')
else
if d=0
then Println('x=',-b/(2*a))
else begin
Println('x[1]=',(-b+sqrt(d))/(2*a));
Println('x[2]=',(-b-sqrt(d))/(2*a));
end;
end.