организация циклов в паскале

[Masha66692]

Помогите кто-нибудь решить задачу срочно надо.

1. Дано натуральное число:
- найти количество цифр данного числа, больших А (А вводится с клавиатуры);
- верно ли, что данное число принадлежит промежутку от А до В (А и В вводятся с клавиатуры).
2. Найти все двузначные числа, которые делятся на n или содержат цифру n

[Ol'ga_new]

Вопрос по заданию:
1. т.е. дано: 23475, ввели А=4, ответ 2 (цифры 5 и 7)
В=3789 ответ: не верно!, а если В=234579 ответ: верно!
2. где искать числа?
Объясни задания помогу сделать.

[ROMA2PVT]

Найти все двузначные числа, которые делятся на n или содержат цифру n

Ну вот чисто от балды.

Uses
   CRT;
VAR
 i,B,k,l: integer;
 key:char;
BEGIN
Clrscr;
repeat
 Write('Введите число: ');
 ReadLn(B);
 if (b>=10) and (B<=99) then
 begin
 writeln('двузначные числа, которые делятся на n:=');
 for i:=10 to 99 do
 begin
   if (i mod B=0) then
   begin
    write(i:8)
   end;
 end;
 writeln;
 writeln('двузначные числа, которые содержат цифру n:=');
 for i:=10 to 99 do
 begin
   k:=i mod 10;
   l:=i div 10;
   if (k=b) or (l=b)  then
   begin
    write(i:8)
   end;
 end;
 writeln;
 end
 else
 writeln;
 write('Повторить (Yes/No)?');
  readln(key);
  Until UpCase(key)<>'Y';
END.