Задание:Написать функцию ,которая проверяет делимость на 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: Пользуемся тегами! При рецедиве последуют санкции.