Question

Potrzebuję pomocy w programie Turbo Pascal. Dwa zadania: program wyznaczający NWD trzech liczb oraz NWW trzech liczb. Proszę pisać o trzech liczbach, a nie dwóch, gdyż z tym sobie radzę. Nie wiem w którym momencie wprowadzić tę trzecią liczbę do obiegu. Instrukcja WHILE.

Answer 1

Nwd z trzech liczb obliczamy za pomocą wzoru NWD(a,NWD(b,c)), najłatwiej było by wiec zastosować funkcje. Zakładam jednak ze nie znasz takowej żeczy więc obejdziemy się bez nich ;) var n,m,k:longint; begin readln(n,m,k); while(nm)do if (m>n) then m:=m-n else n:=n-m; while(nk)do if (k>n) then k:=k-n else n:=n-k; writeln(n); end. //kod napisałem bez kompilatora ale myśle że się nie pomyliłem ;) Teraz przejdźmy do NWW Żeby obliczyć skożystamy ze wzoru NWW(a,b)=a*b/NWD(a,b); var n,m,k,w1:longint; begin readln(n,m,k); w1:=n*m*k; while(nm)do if (m>n) then m:=m-n else n:=n-m; while(nk)do if (k>n) then k:=k-n else n:=n-k; w1:=w1/n; writeln(w1); end.