codice:
Program prova;
uses crt;
var a,b,c,x:integer;
begin
clrscr;
writeln('inserire i valori a, b, c e il programma li ordinerà in ordine decrescente');
readln(a,b,c);
if c > b
then
begin;
x:=b;
b:=c;
c:=x;
end
else
if b > a
then
begin
x:=a;
a:=b;
b:=x;
end
else
if (a>b) and (b>c)
then
writeln(' ',a,' ',b,' ',c,' ')
else
if c > b
then
begin;
x:=b;
b:=c;
c:=x;
end
else
if b > a
then
begin
x:=a;
a:=b;
b:=x;
writeln(' ',a,' ',b,' ',c,' ')
end;
readln;
end.
io l'ho fatto così, ma non funziona!!! e poi dovrei inserire una condizione che mi dica se possono essere lati di un triangolo.
chiunque possa darmi una mano...