Напишите программу вычисления наименьшего общего кратного следующих четырёх чисел: 36 54 18 и 15. используйте процедуру вычисления наибольшего общего делителя двух чисел. информатика 9 класс

// НОД(a,b)*НОК(a,b)=a*b
procedure nod(x,y: integer; var n: integer);
begin
    repeat
        if x>y then x:=x mod y
        else y:=y mod x;
    until (x=0)or(y=0);
n:=x+y;
end;
var a,b,c,d,e,n: integer;
begin
readln(a,b,c,d);
nod(a,b,n);
e:=a*b div n;
nod(c,e,n);
e:=c*e div n;
nod(d,e,n);
Writeln('НОК = ',d*e div n);
end.

Пример:
36 54 18 15
НОК = 540

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018//Внимание! Если программа не работает, обновите версию!

procedure nod ( a,b: integer; var h: integer);

    var c: integer;

    begin

        repeat

            if a > b then

                a := a mod b

            else

                b := b mod a;

        until (a = 0) or (b = 0);         h := a + b;

    end;begin

var (a,b):=readinteger2('a,b->'); var h:integer;

nod(a,b,h);

Writeln('НОК',a*b/h);

end.

from math import sqrt, acos, pi

A1,B1,C1=map(float,input('A1 B1 C1 через пробел: ').split(' '))

A2,B2,C2=map(float,input('A2 B2 C2 через пробел: ').split(' '))

if A1*A2+B1*B2==0: print('прямые перпендикулярны')

else:

   ang=(A1*A2+B1*B2)/(sqrt(A1*A1+B1*B1)*sqrt(A2*A2+B2*B2))

   ang=round(acos(ang)*180/pi)

   print('угол между прямыми: ',ang,' град.')

>>>  

A1 B1 C1 через пробел: -1 1 -3

A2 B2 C2 через пробел: 1 1 -1

прямые перпендикулярны

>>>  

A1 B1 C1 через пробел: 1.5 -3.8 5

A2 B2 C2 через пробел: 2.6 3.4 2

угол между прямыми:  121  град.

age=int(input('Введите ваш возраст: ')

if age < '18':

    print('Вам запрещено вступать в брак')

    print('Вам запрещено получать водительские права')

    print('Вам запрещено покупать алкогольные напитки')

elif age >= '18':

    print('Вам разрешено вступать в брак')

    print('Вам разрешено получать водительские права')

    print('Вам разрешено покупать алкогольные напитки')

Объяснение:

Первая команда отвечает за ввод возраста.

Вторая команда отвечает за то, что есть тебе меньше 18, то тебе запрещено делать подобные действия.

Третье команда делает напротив второй.

Команда if дает условие, при которой будут вводится следующие команды.

Команда elif тоже дает условие, но она работает, если первое условие не будет выполнено.

Итого мы получаем то, что программа скажет, можно ли нам делать подобные действия или нет