Задача в Паскале

[Gex]

Задача в Паскале

Число делится на 11 если сумма цифр, стоящих на нечетных позициях в числе равна сумме цифр стоящих на четных позициях. Написать программу проверки делимости числа и, вводимого с клавиатуры, на 11

 

[Vladimir_S]

Число делится на 11 если сумма цифр, стоящих на нечетных позициях в числе равна сумме цифр стоящих на четных позициях. Написать программу проверки делимости числа и, вводимого с клавиатуры, на 11

Да без проблем:

Var
 N:Integer;

Function Test_11(Q:Integer):boolean;
var
 m,S1,S2,P:integer;
begin
 S1:=0;
 S2:=0;
 P:=Q;
 repeat
  m:=P mod 10;
  Inc(S1,m);
  P:=P div 100;
 until P=0;
 P:=Q div 10;
 repeat
  m:=P mod 10;
  Inc(S2,m);
  P:=P div 100;
 until P=0;
 Test_11:=S1=S2;
end;

Begin
 Repeat
  Write('Enter N (0 to quit) ');
  Readln(N);
  if N>0 then Writeln(Test_11(N));
  writeln;
 Until N=0;
End.