Информатика(pascal). составить программу нахождения - вопрос №7622070 от SamaraArtem24 19.04.2020 23:15

Question

Информатика: Информатика(pascal). составить программу нахождения наименьшего общего кратного(нок) двух чисел m и n, используя формулу n*m=нод(n,m)* нок (n,m).

SamaraArtem24 · Answer

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....