простая но не рабочая программа задача, exitcode 200, теперь 207 Опции

[compiler]

есть задача

Код

8.Вычислите сумму и среднее арифметическое всех четных делителей числа N: Longint.

моё решение

var
	n, j,i,s:integer;
begin
	s:=0;
	i:=0;
	ReadLn(n);
	While n<>0 do begin
		j:=n mod 10;
		if j<>0 then begin
			if (j mod 2 =0) and (n mod j =0) then begin 
				inc(i);
				s:=s+j;
			end;
		end;
		n :=n div 10;
	end;
	writeLn(i);
	writeLn(s/i);	
	
	ReadLn(i);
end.

ошибка при запуске. как исправить?

добавлено позже
программа подправлена.

Сообщение отредактировано: compiler - 29.04.2007 22:50

[klem4]

for j := 0 ... n mod j

остаток от деления на 0 ?!

[compiler]

я подправил, но появилась новая ошибка...

[мисс_граффити]

я чего-то не понимаю...

8.Вычислите сумму и среднее арифметическое всех четных делителей числа N: Longint.

var
n, j,i,s:integer;

считает неправильно.
по-моему, ты намудрил сильно...
и, по-моему, задача на длинную арифметику. сумма может быть значительно больше самого n, то есть в longint не влезет...

[compiler]

по-моему, ты намудрил сильно...
и, по-моему, задача на длинную арифметику.

та хотя бы с маленькими числами работала...

[мисс_граффити]

ну, с маленькими и простым перебором можно
напишешь сам? просто перебираешь все четные числа меньше n/2 (и при необходимости приплюсовываешь само n). если делится - добавляешь к сумме.

[compiler]

ну, с маленькими и простым перебором можно
напишешь сам? просто перебираешь все четные числа меньше n/2 (и при необходимости приплюсовываешь само n). если делится - добавляешь к сумме.

Прошу прощение. Поправка условия. делителя читать как цыифра числа.

[мисс_граффити]

то есть для числа 124598 это будет 2+4+8?
а для 22 получится 2+2?

[compiler]

то есть для числа 124598 это будет 2+4+8?
а для 22 получится 2+2?

Да! но для 22 прога работает правильно, а для 124598-нет.

[klem4]

124598

В турбопаскалевский Integer не влезет.

[compiler]

В турбопаскалевский Integer не влезет.

дело не в размере 11 -- тоже даёт ошибку..

[volvo]

11 -- тоже даёт ошибку..

11 тебе будет давать ошибку только потому, что i = 0, а ты на i делишь!!!

P.S. И потом... Тебе надо сумму? Чего ты счетчик печатаешь? S зачем вычислял?

Сообщение отредактировано: volvo - 1.05.2007 0:31

[klem4]

  count := 0; s := 0;

  while (n > 0) do begin
    if not(odd(n mod 10)) then begin
      inc(count); inc(s, n mod 10);
    end;
    n := n div 10;
  end;

  if count = 0 then writeln('no')
   else writeln('s = ', s, #10#13, 'sr = ', (s / count):2:3); 

[compiler]

11 тебе будет давать ошибку только потому, что i = 0, а ты на i делишь!!!

знаеш что обидно. только сам нашел ошибки как начались проблемы с телефоном

P.S. И потом... Тебе надо сумму? Чего ты счетчик печатаешь? S зачем вычислял?

та хотел отредактировать да срок истек...(к стате сколько он сейчас составляет)

Виноват кругом..

Сообщение отредактировано: compiler - 2.05.2007 1:17