есть задача

моё решение

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.

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

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

for j := 0 ... n mod j

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

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

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




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

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

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

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

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

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

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

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

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

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

  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); 

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

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

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