Question

Умоляю!!! сильно прошу вас помочь мне!!!!!!Это очень срочно!!!Нужна блок схема и программа(паскаль abc)СРОЧНО!!!!!! Есть трехзначное число. необходимо найти количество чисел произведение цифр которых меньше 8. сделать как вложенный цикл.

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

Конечно, я готов помочь! Вот блок-схема и код на языке Pascal ABC для решения вашей задачи:

Блок-схема:

luaCopy code
  +-------------------+
  | Начало программы |
  +-------------------+
           |
           v
  +------------------------+
  | Ввод трехзначного числа |
  +------------------------+
           |
           v
  +------------------------------------+
  | Инициализация счетчика количества |
  +------------------------------------+
           |
           v
  +-----------------------+
  | Пока число > 0        |
  |     Получить цифру    |
  |     Если цифра < 8     |
  |         Увеличить счетчик |
  |     Конец если         |
  |     Убрать последнюю цифру |
  | Конец цикла            |
  +-----------------------+
           |
           v
  +-------------------------------------+
  | Вывод количества чисел               |
  +-------------------------------------+
           |
           v
  +--------------------+
  | Конец программы   |
  +--------------------+

Код на Pascal ABC:

pascalCopy code
program CountNumbers;

var
  num, digit, count: integer;

begin
  writeln('Введите трехзначное число:');
  readln(num);

  count := 0; // Инициализация счетчика

  while num > 0 do
  begin
    digit := num mod 10; // Получение последней цифры
    if digit < 8 then
      count := count + 1; // Увеличение счетчика, если цифра < 8
    num := num div 10; // Убираем последнюю цифру
  end;

  writeln('Количество чисел с произведением цифр меньше 8: ', count);

end.

Скопируйте этот код в среду разработки Pascal ABC и выполните его. Он должен выполнять подсчет количества чисел, у которых произведение цифр меньше 8.