C:\Users\USER\Documents\A5.
pas
Program INTERVALLE;
Uses crt;
Var
nb,ext1,ext2: Integer;
Begin
Clrscr;
Writeln('entrer votre nombre:');
Readln(nb);
Writeln('enrtrer le premier intervalle:');
Readln(ext1);
Writeln('entrer le deuxième intervalle:');
Readln(ext2);
If nb In[ext1..ext2] Then
Writeln(nb,' ', 'appartient à l''intervalle',' ',ext1,' ','à',' ',ext2)
Else
Writeln(nb,' ','n''appartient à l''intervalle' ,' ',ext1,' ','à',' ',ext2);
End.
28/10/2025 - 21:14:52 - Page 1/1