паскаль, операторы цикла с условием

[машко]

Дано натуральное число определить есть ли в ньом цифры а и b.

[Stilet]

Превращай число в строку (процедура VAL) потом процедурой POS проверяй есть ли цифра в этой строке.

[Gongled]

Не самое изящное решение.

program pr;
uses CRT;
var
a, b, x, tmp : integer;
k1, k2 : boolean;

begin

k1 := false;
k2 := false;

write('Введите число: ');
read(x);
write('Введите две цифры: ');
read(a,b);

while x<>0 do
begin
    tmp := x mod 10;
    if tmp = a then k1 := true;
    if tmp = b then k2 := true;
    x := x div 10;
end;

if k1 and k2 then writeln('Есть')
else writeln('Нет');

end.

val преобразует из строки в число. Здесь нужна процедура str
Stilet, топикстартеру нужен цикл. В строках, конечно, проще, но ...

[Stilet]

Здесь нужна процедура str

Попутал... Бывает.

топикстартеру нужен цикл

Ну дык можно и без POS циклами )