[iluxa1810]

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

Код:

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]

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