Nww
Program wyszukujący dla dwóch podanych liczb najmniejszą wspólną wielokrotność.
uses crt;
var a,b,n:word;
begin
clrscr;
write('Podaj pierwsza liczbe ');
readln(a);
write('Podaj druga liczbe ');
readln(b);
n:=a;
while (n mod a<>0) or (n mod b<>0) do n:=n+1;
writeln('Najmniejsza wspolna wielokrotnosc liczb ',a,' i ',b,' to ',n:0);
readln;
end.
Podobne strony
Podobne Strony • Szyfr Cezara • Sortowanie Przez Kopcowanie • Sortowanie Babelkowe • Rok Przestepny • Wieża hanoi • wyswietlanie liczby calkowitej metodą odejmowania poteg • Parzysta Nieparzysta • Ruchoma Gwiazdka • Sortowanie Przez Wstawianie • Sortowanie Przez Wybieranie • QuickSort • Metoda Babelkowa • Silnia • Miejsca Zerowe Funkcji Kwadratowej • Fibonacci
wersja strony: 2, ostatnia edycja: 26 Apr 2009 17:35