Question

Scrieți un program care determină minimul a 3 numere (Pascal)​

Answer 1

Răspuns:

Explicație:

Program Minim;

var a,b,c,aux;

begin

write('a: '); readln(a);

write('b: '); readln(b);

write('c: '); readln(c);

writeln;

if (c1>c2)  then  begin  

    aux:=c1;  

    c1:=c2;

    c2:=aux;  

 end ;

if (c1>c3)  then begin  

    aux:=c1;    

    a:=c3;

    c3:=aux;  

 end;

if (c2>c3)  then begin  

    aux:=c2    

    c2:=c3

    c3:=aux  

end;

writeln('Minim=',c1);

readln;

end.