Question

Составьте блок схему:program qq; var a, b, c: integer; begin writeln ('Введите два числа '); readln(a,b); while a<>b do begin if a>b then a:=a-b else b:=b-a; end; writeln ('НОД равен ',a); end. P.S(НОД-это наибольший общий делитель)

Answer 1

Блок-схема на картинке

Answer 2

Конечно, вот блок-схема данной программы:

luaCopy code
   +--------------------------------+
   | Начало программы               |
   |                                |
   +--------------------------------+
            |
            V
   +--------------------------------+
   | Объявление переменных a, b, c  |
   |                                |
   +--------------------------------+
            |
            V
   +--------------------------------+
   | Вывод строки "Введите два числа"|
   |                                |
   +--------------------------------+
            |
            V
   +--------------------------------+
   | Ввод значений a и b            |
   |                                |
   +--------------------------------+
            |
            V
   +--------------------------------+
   | Начало цикла while             |
   | (a ≠ b)                        |
   |                                |
   +--------------------------------+
            |
            V
   +--------------------------------+
   | Условие (a > b)                |
   |                                |
   +-----------------|--------------+
            |         |
            |         |
            V         |
   +-----------------|--------------+
   | a := a - b      | b := b - a   |
   | (a > b)         | (a < b)      |
   +-----------------|--------------+
            |         |
            |         |
            V         |
   +-----------------|--------------+
   | Условие (a < b)                |
   |                                |
   +-----------------|--------------+
            |         |
            |         |
            V         |
   +-----------------|--------------+
   | a := a - b      | b := b - a   |
   | (a > b)         | (a < b)      |
   +-----------------|--------------+
            |         |
            |         |
            V         |
   +-----------------|--------------+
   | Конец цикла while              |
   | (a = b)                        |
   +--------------------------------+
            |
            V
   +--------------------------------+
   | Вывод строки "НОД равен "      |
   |                                |
   +--------------------------------+
            |
            V
   +--------------------------------+
   | Вывод значения a (НОД)         |
   |                                |
   +--------------------------------+
            |
            V
   +--------------------------------+
   | Конец программы                |
   |                                |
   +--------------------------------+

Эта блок-схема отображает структуру программы и основные шаги, выполняемые в ней для нахождения наибольшего общего делителя (НОД) двух чисел a и b с использованием алгоритма Евклида.