كتابة لوغارتيم حول قسمة عديدن

[djidjicoucou]

écrire un algorithme qui lit deux nombres .diviser le plus grand par le plus petit et si le plus petit est nul afficher un message d"erreur
شكرا

[djidjicoucou]

?????????????

[aoufi kamel]

ممكن حل في الباسكال لهده الخوارزمية

[djidjicoucou]

حتى انا نبحث عليها

[sami bett]

program diviserleplusgrand;
var a:integer;  b:integer;

begin
  write('a=');
  read(a);
  write('b=');
  read(b);
  if a>b then
  begin
             if b=0 then
             writeln('Erreur: Division sur 0.')
             else write('a/b=',a/b);
  end
  else
  begin
             if a=0 then
             writeln('Erreur: Division sur 0.')
             else write('b/a=',b/a);
  end;

readln;
readln;

end.

[amine bouzawia]

بارك الله فيكم و جعله في ميزان حسناتكم