[salemk]

المشاركة الأصلية كتبت بواسطة tarake

يرجى المساعدة هنا

بالنسبة للتمرين الاول عدّل هذا الحل للحصول على القيمة الاكبر فقط دون الاهتمام بالقيمة الصغرى مالوسطى

المشاركة الأصلية كتبت بواسطة you92cef

التمرين الاول
dans un ordre croisant

program ex05;
uses wincrt;
var a,b,c,grand,moyen,petit:integer;
begin
readln(a,b,c);
if a>b then if b>c then begin
                        grand:=a;
                        moyen:=b;
                        petit:=c;
                        end
            else if a>c then begin
                             grand:=a;
                             moyen:=c;
                             petit:=b;
                             end
                  else begin
                       grand:=c;
                       moyen:=a;
                       petit:=b;
                       end
else if a>c then begin grand:=b;
                 moyen:=a;
                 petit:=c;
                 end
     else if b>c then begin grand:=c;
                      moyen:=c;
                      petit:=a;
                      end
          else begin grand:=c;
               moyen:=b;
               petit:=a;
               end;

writeln('grand:',grand);
writeln('moyen:',moyen);
writeln('petit:',petit);
end.

عدل في التعليقات فقط

للحصول على البرنامج الثاني عدل في تريتب التعليقات فقط

الشكر أو النقد لن يكلّف كثيرا