|
program NWW; uses crt; var a,b,d:longint;      begin         clrscr;         writeln(' Program obliczajacy NWW ');         writeln;         write('wprowadz a:');         readln(a);         writeln;         write('wrowadz b:');         readln(b);         writeln;         d:=1;         while d*a mod b<>0 do d:=d+1;         write('NWW liczb(',a,',',b,') wynosi = ',d*a);         writeln;         writeln('Nacisnij dowolny klawisz, by zakonczyc');         repeat until keypressed;     end.
|