Даны целые положительные числа a и b найдите их наименьшее общее кратное нок используя алгоритм евклида: нок(a,b)=нок(b,a mod b), если b не равен 0; nok(a; 0)=a

151

236

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

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

79869106698

Информатика

4,5(28 оценок)

var a, b, c, a1, b1: integer; begin writeln('введите a и b: '); readln(a, b); a1 : = a; b1 : = b; while b1 < > 0 do begin c : = a1 mod b1; a1 : = b1; b1 : = c; end; if b < > 0 then writeln('нок(', a,',', b,') = ', a div a1 * b) else writeln('нок(', a,',', b,') = ', a);

end.

nelia3232

Информатика

4,8(38 оценок)

сори в начале не понял, что нужен евклид, я исправился:

uses crt; function nod(m,n: integer): integer; beginif m< > 0 then nod: =nod(n mod m,m) else nod: =n; end; function nok(m,n: integer): integer; beginnok: =(m div nod (m,n))*n; end; var x,y: integer; beginclrscr; writeln('vvedite x y : '); readln(x,y); writeln (nok(x,y)); readln; end.