👤
VZEUGENEN
a fost răspuns

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

Răspuns :

NIKTELEN

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.

Vă mulțumim că ați vizitat site-ul nostru dedicat Informatică. Sperăm că informațiile oferite v-au fost de ajutor. Dacă aveți întrebări sau nevoie de asistență suplimentară, nu ezitați să ne contactați. Vă așteptăm cu drag data viitoare și nu uitați să ne adăugați la favorite!


En Learnings: Alte intrebari