Срочно нужна помощь!!!Прошу вас,без игнора это важно прошу вас.Написать блок схему и...

Question

Срочно нужна помощь!!!Прошу вас,без игнора это важно прошу вас.Написать блок схему и программу к задаче. есть трехзначные числа. необходимо найти количество чисел, Произведение цифр которых меньше восьми. сделать как вложенный цикл.

Answer 1

var

a,b,i,count:integer;

begin

 i:=100;

 repeat

   b:=i;

   a:=1;

   while b>0 do

     begin

       a:=a * (b mod 10);

       b:=b div 10;

     end;

   if a < 8 then

     begin

       inc(count);

       write(i:4);

     end;

   inc(i);

 until i>=999;

 writeln;

 writeln('Count: ',count);

end.