Помогите составить программы к задачам 8 , 10 пожалуйста срочно надо)))
Answers & Comments
Igorrock
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('=',x); End.
Answers & Comments
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('
End.