👤
a fost răspuns

Se citesc 3 nr. a, b, c Sa se scrie un cuvant cu literele a, b, c, reprezentand ordinea crescatoare a numerelor.

Eu am incercat ceva de genu'' :

citeste a, b, c
 daca a <b atunci aux ← a
a  ← b
b ← aux
 daca a<c atunci aux ← a
a ← c
 c ← a
daca b<c atunci aux ← b
 b ← c
  c ← aux
 scrie a, b, c

Răspuns :

o metoda mai exacta si o poti utiliza si pentru alte probleme
program p1;
var a,b,c,m,n,f:integer; 
  s:string;
Begin
write('Dati numerele a,b si c:');readln(a,b,c);
if (a>b) and (a>c) then m:=a 
 else if (b>a) and (b>c) then m:=b 
 else if (c>a) and (c>b) then m:=c;
if (a<b) and (a<c) then n:=a 
else if (b<a) and (b<c) then n:=b 
else if (c<a) and (c<b) then n:=c;
if (a>n) and (a<m) then f:=a
  else if (b>n) and (b<m) then f:=b 
 else if (c>n) and (c<m) then f:=c;
if a=n then s:=s+'a' 
else if b=n then s:=s+'b' 
else if c=n then s:=s+'c';
if a=f then s:=s+'a' 
else if b=f then s:=s+'b' 
else if c=f then s:=s+'c';
if a=m then s:=s+'a' 
else if b=m then s:=s+'b' 
else if c=m then s:=s+'c'; 
writeln(s);
readln;
End.
dar o metoda mai simplificata
program p1;
var a,b,c:integer;
begin
write('Dati numerele a,b si c:');
readln(a,b,c);
if a<b then
 begin 
 if a>c then writeln('cab') 
 else if b<c then writeln('abc') 
 else writeln('acb');
end
else
begin
if (b<c) and (a<c) and (a<b) then writeln('abc') 
 else if (a>c) and (c>b) then writeln('bca') 
else if (c>b) and (a>b) then writeln('bac') 
 else if b>a then writeln('cab') 
else writeln('cba');
end;
readln;
end.
Vă mulțumim pentru vizita pe platforma noastră dedicată Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Așteptăm cu entuziasm să reveniți și vă invităm să ne adăugați la lista de favorite!


Viz Lesson: Alte intrebari