[pascal]-największy Wspólny Dzielnik

[Bula i spula]

Chciałbym napisać program, który miałby docelowo obliczać największy wspólny dzielnik i najmniejszy wspólny mnożnik. Do tego pierwszego jest mi niezbędna taka komenda:

If liczba[1]/2='liczba naturalna' then... else...

No i właśnie nie wiem jak to napisać... Proszę o pomoc

 

pozdrowienia

Bula i spula

[Gość]

Mozesz sprawdzac czy liczba jest parzysta.. jesli jest to wiadomo, ze podzieli sie przez 2, a jesli nie jest to nie..

A sprawdzenia parzystosci mozesz dokonac za pomoca dzielenia modulo.

[nightstalker]

O to Ci chodzi ?

 

wczytaj, a,b itd...

 

repeat  c := a mod b;  a := b;  b := c;  until b = 0;    writeln('Najwiekszy wspolny dzielnik to: ', a);