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

[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]

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