fbmhm
عضو نشيط
- إنضم
- 9 أكتوبر 2009
- المشاركات
- 120
- مستوى التفاعل
- 47
Pour :Tunisiano009
Program MILTIPLE _5;
Uses wincrt;
Var
N:integer;
Begin
Write('Donner un entier:');
Readln(n);
If (n mod 5=0) then
Writeln(n, ' est un multiple de 5.')
Else
Writeln(n, ' n''est pas un multiple de 5.')
End.