Информатика

Венедикта

17 ноября, 07:03

Язык Pascal!

Дан алгоритм:

Подпрограмма

1) ввести натуральное число M, N

2) если M=N перейти к п. 5, иначе к следующему пункту

3) если M>N, то M:=M-N; иначе N:=N-M

4) перейти к п. 2

5) Передать значение M в основную программу

6) Конец подпрограммы

Основная программа

1) ввести значение A, B, C, D

2) E:=A*D-B*C

3) F:=B*D.

4) если Е=о, вывести значение Е и перейти к п. 9, иначе перейти к следующему пункту

5) M:=|E|, N:=F; перейти к подпрограмме вычисления НОД

6) G:=M;

7) E и F нацело разделить на G

8) вывести значение E и F на печать

9) конец программы

Нужно написать программу по данному алгоритму.