Question

Помогите написать программу ​

Answer 1

Ответ: я не стал добавлять переменную y, так как не вижу в ней нужды, можно и без нее спокойно обойтись...

                                       PascalABC.NET

begin

 var y: integer;

 var x:=ReadInteger('Введите x');

 if x>1 then

     y := sqr(x)-(4*x)+3

   else

     y := x-1;

writeln('y = ',y);      

end.

Answer 2

кст 14 задание похоже надо только заменить вроде

Answer 3

begin
var x,x2:real;
Writeln('ax^2+bx+c=0');
var (a,b,c) := readreal3('Введите числа a,b,c');
var D:=sqr(a)-4*b*c;
if D<0 then
writeln('Корней нет');
if D=0 then begin
x := -b/(2*a);
writeln('x = ',x)
end;
if D>0 then begin
x := (-b+sqrt(D))/(2*a);
x2 := (-b-sqrt(D))/(2*a);
writeln('x1 = ',x,' x 2 = ',x2);
end;
end.

Answer 4

С++11:

static double foo(double x){

if( x<=1 ) return (x-1);

return (pow(x,2) - 4*x + 3);

}