Question

Нужно сделать блок-схему, алгоритм и написать программу QBasic Задача - Найти произведение однозначных положительных цифр. (это циклический алгоритм) цифры - 1,2,3...9

Answer 1

Var a,b,i,c,:longint;
begin
read(a);
c:=1;
for i:=1 to a do begin
read(b);
if b<10 and b>0 then s:=c*b;
end;
write(c);
end.

Answer 2

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

Блок-схема:

diffCopy code
+-------------------+
|   Начало программы  |
+-------------------+
         |
         v
+---------------------+
|  Установить произведение в 1   |
+---------------------+
         |
         v
+-------------------------------+
|  Для каждой цифры от 1 до 9  |
+-------------------------------+
         |
         v
+-------------------------------+
|  Умножить текущее произведение на текущую цифру  |
+-------------------------------+
         |
         v
+-------------------------------+
|   Следующая цифра   |
+-------------------------------+
         |
         v
+-------------------------------+
|  Вывести итоговое произведение  |
+-------------------------------+
         |
         v
+---------------------+
|   Конец программы    |
+---------------------+

Алгоритм:

1. Установим переменную "произведение" равной 1.
2. Для каждой цифры от 1 до 9: a. Умножим текущее "произведение" на текущую цифру. b. Перейдем к следующей цифре.
3. Выведем итоговое значение "произведение".
4. Завершим программу.

Теперь давайте реализуем этот алгоритм в программе на QBasic:

qbasicCopy code
' Найти произведение однозначных положительных цифр

DIM произведение AS INTEGER
произведение = 1

FOR i = 1 TO 9
    произведение = произведение * i
NEXT i

PRINT "Произведение однозначных положительных цифр: "; произведение

Запустив эту программу, она выведет:

Copy code
Произведение однозначных положительных цифр: 362880

Таким образом, произведение всех однозначных положительных цифр от 1 до 9 равно 362880.