1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
| program ex1;
uses wincrt;
var
a,b,c:integer;
begin
writeln('donner premier nombre a ');
read(a);
writeln('donner premier nombre b ');
read(b);
writeln('donner premier nombre c ');
read(c);
if(a>b) and (a>c) and then
if (b>c) then
writeln(' les nombres tries sont ',a,b,c)
else
writeln('les nombres tries sont ',a,c,b);
if (b>a) then
writeln('les nombres tries sont ',b,c,a)
else
writeln('les nombres tries sont ',b,a,c);
if(b<a) then
writeln('les nombres tries sont ',c,a,b)
else
writeln('les nombres tries sont ',c,b,a);
end;
end. |
Partager