Информатика(pascal). составить программу нахождения - вопрос №7621168 от ssbina 27.02.2021 18:11

Question

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

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