Question

HELP ME HELP ME HELP ME HELP [email protected]без игнора,ребят пожалуйста мне срочно прошу уже 5 дней пожалуйста. Написать блок схему и программу к задаче. есть трехзначные числа. необходимо найти количество чисел, Произведение цифр которых меньше восьми. сделать как вложенный цикл

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

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

Блок-схема:

mathematicaCopy code
Start
|
V
Initialize count = 0
For i from 100 to 999
|   Initialize product = 1
|   Initialize num = i
|   For j from 1 to 3
|   |   digit = num % 10
|   |   product = product * digit
|   |   num = num / 10 (integer division)
|   End For
|   If product < 8
|   |   Increment count
|   End If
End For
Display count
|
V
End

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

plaintextCopy code
count = 0
for i = 100 to 999 do
    product = 1
    num = i
    for j = 1 to 3 do
        digit = num % 10
        product = product * digit
        num = num / 10 (integer division)
    end for
    if product < 8 then
        count = count + 1
    end if
end for
display count

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