Question

Задание 1.
В компьютер вводятся два числа.Если первое больше второго,то напечатать их сумму, иначе - произведение.После этого компьютер должен напечатать текст ЗАДАЧА РЕШЕНА.
Задание 2.
Выяснить количество корней квадратного уравнения с коэффициентами a,b,c

Answer 1

Program Title;

Var i, A, B :Integer;

Begin

WriteLn('Введите первое число');

ReadLn(A);

WriteLn('Введите второе число');

ReadLn(B);

If a>b then writeln(a+b) else writeln(a*b)

Writeln('Задача решена')

End.

Answer 2

Program Begin39;
Var
A,B,C,X1,X2:Real;
Begin
WriteLn('Введите A,B и C');
ReadLn(A,B,C);
D:=Sqr(B) - 4*A*C;
X1:=(-B - sqrt(D))/(2*A);
X2:=(-B + Sqrt(D))/(2*A);
If X1 <= X2 Then
WriteLn('X1 = ',X1,' X2 = ',X2)
Else
WriteLn('X1 = ',X2,' X2 = ',X1);
ReadLn;
End.