Регистрация
andrianovva
18.07.2022 22:55
Информатика
Есть ответ 👍

Pascal. вводится 2 натуральных числа. вывести их нок. !

276
284
Посмотреть ответы 3

Ответы на вопрос:

Polia111111
Polia111111
4,6(32 оценок)
Var a, b, nok: integer; begin readln (a, b); nok: =(a*b); while a< > b do begin if a> b then a: =a-b else b: =b-a; end; nok: =nok div a; write (nok); end.
нур92
нур92
4,6(72 оценок)
//алгоритм евклида var a, b: integer; function nod (p1, p2: integer): integer; begin    while p1< > p2 do          if p1> p2 then p1: =p1-p2 else p2: =p2-p1; nod: =p1; end; function nok (p1, p2: integer): integer; begin   nok: =(p1*p2) div nod(p1, p2); end; begin readln (a, b); writeln ('нок a, b = ', nok(a, b)); end.
Evelina300606
Evelina300606
4,4(55 оценок)
Язык какой? мы тут не наладки

Популярно: Информатика