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.

Answer 2

Конечно, я помогу вам с этой задачей. Вот блок-схема и программа на псевдокоде с вложенными циклами:

Блок-схема:

yamlCopy code
    Начало
    Объявить переменную count и инициализировать её нулем
    
    Для i от 100 до 999:
        Произведение = 1
        num = i
        
        Пока num > 0:
            digit = num % 10
            Произведение = Произведение * digit
            num = num / 10
            
        Если Произведение < 8:
            count = count + 1
    
    Вывести count
    Конец

Программа на псевдокоде:

plaintextCopy code
Процедура НайтиКоличествоЧисел()
    count = 0
    
    Для i = 100 до 999 Шаг 1
        произведение = 1
        num = i
        
        Пока num > 0
            digit = num % 10
            произведение = произведение * digit
            num = num / 10
            
        Если произведение < 8 Тогда
            count = count + 1
        Конец Если
    Конец Для
    
    Вывести "Количество чисел: " + count
Конец Процедура

Обратите внимание, что этот псевдокод представляет базовую структуру программы на основе вашего описания. Вы можете адаптировать этот код под язык программирования, который вы планируете использовать.