👤

În pascal
Mă poate ajuta cineva vă rog?​


În PascalMă Poate Ajuta Cineva Vă Rog class=

Răspuns :

program p1;

var a, b, c, max, min : integer;

begin

write('a = '); readln(a);

write('b = '); readln(b);

write('c = '); readln(c);

max := 0; min := 0;

if max < a then max := a;

if max < b then max := b;

if max < c then max := c;

if min > a then min := a;

if min > b then min := b;

if min > c then min := c;

writeln('Max = ', max);

writeln('Min = ', min);

end.

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


Ze Learnings: Alte intrebari