[iluxa1810]

Задание:Написать функцию ,которая проверяет делимость на 9

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.btn1Click(Sender: TObject); function razd(k:byte):Byte; begin Result:=k mod 9; end; var n:byte; begin n:=StrToInt(edt1.Text); razd(n); if razd=0(тут находит ошибку) then lbl1.caption:='Делится' else lbl1.caption:='Не делится; end;   end.

Admin: Пользуемся тегами! При рецедиве последуют санкции.

[iluxa1810]

P.S Я написал функцию просто делимости на 9 т к экспериментирую над функциями.

[iluxa1810]

Я нашел ошибку сам.Извиняюсь за тему...