Question

Aflati minimul si maximul dintre numerele x, y, z, editand codul de mai jos in Pascal


Program suma;

var x, y, z,s,d,p,c,f:integer;

begin

writeln('Introduceti numerele intregi x, y, z:');

readln(x, y, z);

S:=x + y +z;

d:=x-y-z;{Diferenta numerelor}

p:=x*y*z;{Inmultirea numerelor}

c:= x mod y ; {Impartirea}

f:= x div y;{Divul}

writeln ('Suma numerelor introduse este:', s);

writeln ('Diferenta numerelor introduse este:', d);

writeln ('Produsul numerelor introduse este:', p);

writeln ('Mod numerelor introduse este:',c);

writeln ('Div numerelor introduse este:',f);

end.

Answer 1

Răspuns:

program min_max;

var x,y,z,min,max:integer;

begin

 writeln('Introduceti numerele intregi x, y, z:');

 readln(x, y, z);

 min:=x; max:=x;

 if y<min then min:=y;

 if y>max then max:=y;

 if z<min then min:=z;

 if z>max then max:=z;

 writeln('minimul este ',min);

 writeln('maximul este ',max);

end.

Explicație:

succese!