Program S2;
Var
n : longint;
x : integer;
//*******************************
Procedure saisie(Var n:longint);
Begin
Repeat
write(' N = ');
readln(n)
Until (n >10);
End;
//*******************************
Function divisible7(n:longint) : integer;
Var
ch : string;
n1,s : longint;
e,d,l,i : integer;
Begin
Repeat
str(n,ch);
l := length(ch);
val(ch[l],d,e);
delete(ch,l,1);
val(ch,n,e);
s := abs(n-(2*d));
writeln(n,'- 2*',d,'=',s);
n := s;
Until (s Div 10 = 0);
divisible7 := s;
End;
//*******************************
Begin
saisie(n);
x := divisible7(n);
If (x In [0,7] ) Then
writeln('le nombre ',n,' est divisible par 7')
Else writeln('le nombre ',n,' n''est pas divisible par 7');
End.
Inscription à :
Publier les commentaires (Atom)
