| Zadanko z infy... kolejne :-) |
|
|
| Redaktor: Łukasz Podolski | |
| 05.12.2007. | |
|
Kolejny programik na infe na ocene bdb Napisz program, który dla danej liczby naturalnej m wypisuje w uporządkowany sposób wszystkie nieskracalne ułamki właściwe o mianownikach nie większych niż m. program asd;uses crt; function NWD (A,B:longint) : longint; var Tmp : longint; Begin if (A<>0) AND (B<>0) then begin A:=abs(A); B:=abs(B); while (A<>B) do begin if (A<B) then begin Tmp:=A; A:=B; B:=Tmp; end; A:=A-B; end; NWD:=A; end else NWD:=0; end; {MAIN BODY} var m,i,j:longint; begin writeln('Podaj liczbe naturalna...'); readln(m); clrscr; for i:=2 to m do begin for j:=1 to i-1 do begin if NWD(i,j)=1 then begin writeln(j); writeln('-'); writeln(i); writeln('');end; end; end; readln; end. Ustaw jako ulubiony Zakładka Wyślij to przez emaila Kliknięć: 431 Komentarze (0)
 Napisz Komentarz
|
|
| Zmieniony ( 07.12.2007. ) |
Zapisz sie do kolportera RSS tego komentarza
| « poprzedni artykuł | następny artykuł » |
|---|