Цитата:
Сообщение от vana174
1. В промежутке [m, n] найти все числа, в записи которых нет цифры b.
|
Например, так:
Код:
Var
m,n,i:LongInt;
j:Byte;
S:String;
C:Char;
b:boolean;
Begin
Write('m= ');
Readln(m);
Write('n(>m)= ');
Readln(n);
Write('b= ');
Readln(C);
For i:=m to n do
begin
STR(i,S);
b:=true;
for j:=1 to length(S) do
if S[j]=C then b:=false;
if b then write(i:8);
end;
Readln;
End.