ملتقى طلاب الاعلام الالي لحل تمارين Algorithmes et programmation en Pascal

[you92cef]

احسنت اخي
algeriano9354

بداية موفقة استمر في البرجة

تم اضافة بعض التعديلات الطفيفة على برنامجك وه>ا هو البرنامج النهائي ان شاء الله
ملاحظة: هدا البرنامج مخصص فقط لاعداد التي تتكون من 5 ارقام يمكن تعديله كيفما نشاء مع احترام مجالات الاعداد

program keith;
uses wincrt;
var
a,b,c,d,e,r1,r2,r3,r4,s,k,j:longint;
begin
repeat
writeln('entrer un nombre composé de 5 chiffres');
readln(k);
until (k>9999) and(k<=99999);
begin
 a:= k div 10000;
 r1:=k-a*10000;
 b:=r1 div 1000;
 r2:=r1-1000*b;
 c:=r2 div 100;
 r3:=r2-c*100;
 d:=r3 div 10;
 r4:=r3-10*d;
 e:=r4;
 s:=0;
  repeat
   s:=a+b+c+d+e;
    begin
    if s=k then begin
     writeln(s,' :est un nombre de keith');
     j:=1;
     end
     else
      a:=b;
      b:=c;
      c:=d;
      d:=e;
      e:=s;
    end;
  until s>k;
   if (s>=k) and(j<>1) then writeln('le nombre n''est pas de keith');
 end;
end.

quelque nombres de keith avec 5 chiifres
31331
34285
34348
55604

ملاحظة: هذا التمرين كان امتحان في المدرسة
Examen de janvier 2009 - Université Libre de Bruxelles
وهي مدرسة رائدة في مجال الهندسة بما فيها الاعلام الالي جل الجامعات تاخذ تمارين الامتحانات وباقي التمارين من تمارين هده الجامعة

سيتم وضع الشرح قريبا ان شاء الله