Знакопеременная сумма цифр делится ли на 11

@Fatal120 · Регистрация: 13.11.2009

Author24 — интернет-сервис помощи студентам

Известно, что целое положительное число делится на 11, если знакопеременная сумма составляющих его цифр делится на 11. Имеем число 194689. Знакопеременная сумма составляющих цифр
1-9+4-6+8-9=-11 делится на 11. Используя этот факт, составить программу, которая определяет, делится ли введенное четырехзначное число на 11.

P.S. На Паскале.

@Тамила · 16.11.2009, 14:32

var a:array[1..4] of integer;

по-моему, как-то так...
for i=1 to 4 do
if a[i] mod 11 =0 then
writeln('verno');//т.е делится на 11 без остатка

Добавлено через 58 секунд
а..нет, я не правильно поняла условие...

@Inadequate · 16.11.2009, 14:41

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

Знакопеременная сумма составляющих цифр
1-9+4-6+8-9=-11 делится на 11

вообще чо за бред? все это определяется остатком

Pascal

var
  i:integer;
begin
  readln(i);
  if (i mod 11 = 0) and (i<>0) then
    writeln('Çàäàííîå ÷èñëî äåëèòñÿ íà 11!')
  else
    writeln('Çàäàííîå ÷èñëî ÍÅ äåëèòñÿ íà 11!')
end.

@Puporev · 16.11.2009, 14:44

Pascal

uses crt;
var n:word;
    a,b,c,d:byte;
begin
clrscr;
repeat
write('Введите 4-х значное число n=');
readln(n);
until (n>=1000)and(n<=9999);
a:=n div 1000;
b:=n div 100 mod 10;
c:=n div 10 mod 10;
d:=n mod 10;
if (a-b+c-d) mod 11=0 then write('Делится')
else write('Не делится');
readln
end.

@Inadequate · 16.11.2009, 15:07

ну еще и вариант "фокусы" со строкой...

Pascal

var
  res,code,k:integer;
  s:string;
begin
  readln(s);
  val(s[1],res,code);
  for i:=2 to length(s) do
  begin
    val(s[i],k,code);
    if not odd(i) then
      k:=k*(-1);
    res:=res+k;
  end;
  if abs(res)=11 then
    writeln('Çàäàííîå ÷èñëî äåëèòñÿ íà 11!')
  else
    writeln('Çàäàííîå ÷èñëî ÍÅ äåëèòñÿ íà 11!')
end.

Добавлено через 15 минут
и еще от нечего делать и для случая когда не только 4-х значное...

Pascal

const
  n=100;
var
  i,res,temp,c:integer;
  a:array[1..n]of integer;
begin
  readln(i);
  temp:=i;
  c:=0;
  while temp<>0 do
  begin
    inc(c);
    a[c]:=temp mod 10;
    temp:=(temp-(temp mod 10))div 10
  end;
  res:=0;
  for i:=c downto 1 do
  begin
    if not odd(i) then
      a[i]:=a[i]*(-1);
    res:=res+a[i]
  end;
  if abs(res)=11 then
    writeln('×èñëî äåëèòñÿ íà 11!')
  else
    writeln('×èñëî ÍÅ äåëèòñÿ íà 11!')
end.

@Fatal120 0 / 0 / 0 Регистрация: 13.11.2009 Сообщений: 9
		1
	Знакопеременная сумма цифр делится ли на 11 16.11.2009, 14:26. Показов 7609. Ответов 4 Метки нет (Все метки) Известно, что целое положительное число делится на 11, если знакопеременная сумма составляющих его цифр делится на 11. Имеем число 194689. Знакопеременная сумма составляющих цифр 1-9+4-6+8-9=-11 делится на 11. Используя этот факт, составить программу, которая определяет, делится ли введенное четырехзначное число на 11. P.S. На Паскале. 0

@Тамила 753 / 546 / 211 Регистрация: 12.11.2009 Сообщений: 1,100
	16.11.2009, 14:32	2
	var a:array[1..4] of integer; по-моему, как-то так... for i=1 to 4 do if a[i] mod 11 =0 then writeln('verno');//т.е делится на 11 без остатка Добавлено через 58 секунд а..нет, я не правильно поняла условие... 1

	16.11.2009, 15:07