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

Gex · 23.05.2014, 13:12

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

Vladimir_S · 23.05.2014, 14:39

Цитата:

Сообщение от Gex

Число делится на 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.

23.05.2014, 13:12	#1 (permalink)
Gex Новичок Регистрация: 23.05.2014 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Задача в Паскале Число делится на 11 если сумма цифр, стоящих на нечетных позициях в числе равна сумме цифр стоящих на четных позициях. Написать программу проверки делимости числа и, вводимого с клавиатуры, на 11

23.05.2014, 13:12
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Очень эффективно в решении проблемы прочитать аналогичные обсуждения Задача на Паскале Задача на Паскале АБС

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070