Έλεγχος αν ένα τρίγωνο είναι ισοσκελές

Να γίνει πρόγραμμα σε pascal που να διαβάζει το μήκος των 3 πλευρών ενός τριγώνου και να ελέγχει και να εμφανίζει μήνυμα αν το τρίγωνο είναι ισοσκελές ή όχι. Ένα τρίγωνο είναι ισοσκελές όταν έχει δυο πλευρές ίσες.








Απάντηση



Program isoskeles;
var a,b,c:integer;
Begin
    Writeln('Δώσε το μήκος των τριών πλευρών ενός τριγώνου:');
    write('(Οι τιμές χωρισμένες με enter ή με κενό):');
    readln(a,b,c);
    If (a=b) or (b=c) or (c=a) then
    writeln('ΙΣΟΣΚΕΛΕΣ')
    else
    writeln('ΟΧΙ ΙΣΟΣΚΕΛΕΣ');
End.