Dhifallah Fethi Admin
Messages : 74 Date d'inscription : 02/03/2011
| Sujet: Divisibilité par 4 (Algoritmes arithmétiques) Mar 29 Mar - 2:18 | |
| Divisibilité par 4 - Code:
-
program divisible_4; uses wincrt; var n:integer; procedure lecture(var n:integer); begin writeln('donner un entier'); readln(n); end; function div_4(n:integer):boolean; var i,s,r,e,l:integer; ch,chd:string; test:boolean; begin str(n,ch); l:=length(ch); chd:=''; chd:=(ch[l-1]+ch[l]); val(chd,r,e); if (r mod 4=0)then test:=true else test:=false; div_4:=test; end; procedure affiche(var n:integer); var ch:string; begin if div_4(n)=true then writeln('n est divisible par 4') else writeln('n n''est pas divisble par 4'); end; begin lecture(n); div_4(n); affiche(n); end. | |
|