Question

Помогите составить программы к задачам 8 , 10 пожалуйста срочно надо)))

Answer 1

8.
Program zadanie_8;
Var a,b,c:real;
Begin
 Writeln('Введите значения A,B,C');
 Readln(a,b,c);
 If (a<b) and (b<c) Then a:=a+b+c Else a:=a*b*c;
 Writeln(a);
End.
10.
Program zadanie_10;
Var x:real;
Begin
 Writeln('Введите значение x;);
 Readln(x);
 x:=(4*sqr(x)+7)/3*x-6;
 Writeln('$frac{ 4x^{2}+7 }{3x-6}$=',x);
End.