Информатика(Pascal). Составить программу нахождения наименьшего общего кратного(НОК) двух чисел m и n, используя формулу n*m=НОД(n,m)* НОК (n,m).
Uses crt; var n,m,p : real; nod,nok : real; begin clrscr; write('n=');readln(a); write('j=');readln(b); p:=n*m; while n<>m do if n>m then n:=n-m else m:=m-a; nod:=n; nok:=p/nod; writeln('НОД:',n); write('НОК:',nok); readln; end.
Вместо а -n поставь. Всесто b -m поставь. Я привыкла работать с а и б
а понял,спс
а модуль clrscr обязателен?
а всё,убрал его , всё норм теперь, не подскажешь зачем его используют вообще?
Не за что
Не очень. Он позволяет выводить цветные символы цветными
понял, странно что мы этого вроде ещё не проходили,хотя может я забыл, ты же в 9?
Сказано ведь в задании "по формуле...", и приведена формула. А здесь совсем не так.
ФВС помоги с новой задачкой пж
там в информатике близко