Question

va rog ajutați mă îmi trebuie urgent

Answer 1

Programul a:

var  

  x,y:real;

begin

    write('Introduce-ti x:');

    read(x);

    if x>= 0 then

    y:=2*x  

    else

    y:=x/2;

    writeln('Rezultatul:',y);

end.

Programul b:

var  

  x,y:real;

begin

    write('Introduce-ti x:');

    read(x);

    if x>5 then

    y:=x+3  

    else

    y:=x-3;

    writeln('Rezultatul:',y);

end.

Programul c:

var  

  x,y:real;

begin

    write('Introduce-ti x:');

    read(x);

    if abs(x)>5 then

    y:=x

    else

    y:=2*x;

    writeln('Rezultatul:',y);

end.

Program d:

var  

  x,y:real;

begin

    write('Introduce-ti x:');

    read(x);

    if x>=3 then

    y:=x

    else

    y:=x+4;

    writeln('Rezultatul:',y);

end.

Programul P51 va afisa:

exemlu la readln ai dat numarul 4 va afisa 2*4=8