![]() |
Eugeniusz Jakubas |
Stąd można pobrać teksty źródłowe poniższych 57 programów w Pascalu pr-pascal.zip - 34 kB
18. Nww
program NWW; uses crt; var a,b,dz:longInt; begin clrScr; a:=30; b:=105; dz:=1; while dz*a mod b<>0 do dz:=dz+1; writeLn('NWW(',a,',',b,') = ',dz*a); readLn; end. |
![]() |