Технический форум - Задача в Паскале

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Задача в Паскале (http://www.tehnari.ru/f41/t96518/)

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

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

Цитата:

Сообщение от Gex (Сообщение 1034436)

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

Код:

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.