цикл с условием

[maks22]

Дано натуральное число.Верно ли,что в нем нет цифры b.
Написать программу с выводом через Label1. LAZARUS

[danekne]

function labelb(S: String): boolean
var f: boolean;
begin
f:=false;
for i:=1 to length(s) do
if s[i]='b' then 
f=true;
return f;
end;

[maks22]

а по другому решить еще как нить можно?

[maks22]

нужно другое решение с выводом через Label пожалуйстаа! в LAZARUSe

[VIK_aka_TOR]

var 
i: integer;
chisloN, cifra: string;
flag: boolean;
begin
chisloN := Edit1.Text; //  либо другой компонент где воодится число n
flag := false;
for i:=1 to length(chisloN) do
if chisloN[i] = cifra then
flag:= true;

if flag then
label1.Caption := 'неверно... цифра есть'
else 
Label1.Caption := 'верно... цифры нет';
end;

[maks22]

спасибо то что надо!

[VIK_aka_TOR]

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

[maks22]

помогите узнал что нельзя использовать string и присваивать пустые множества,что делать,как исправить?

[VIK_aka_TOR]

n := StrToInt(Edit1.Text);
flag:= true;
while n > 0 do
begin
if ((n mod 10) = b) then
flag := false;
n:= n div 10;
end;
if flag then
// не входит
else
// входит