Напишите программу для нахождения нок для n чисел - вопрос №8565323 от Lisa030105 04.12.2021 14:06

Question

Информатика: Напишите программу для нахождения нок для n чисел (pascal)

Lisa030105 · Answer

1 2 3 4 5 6 7 8 9 10 11 12 uses crt; var a,b,c:integer;   begin  readln(a,b);  c:=a*b;  repeat   if a b then a:=a-b else b:=b-a;  until a=b  c:=с div a;  writeln(c); end;P.S. Использовано свойство НОД(a,b)*НОК(a,b)=a*b...