program1.txt

(0 KB) Pobierz

program abc;
var i,j,n:Integer;
zm:boolean;
begin
  repeat 
  write('n=');
  readln(n);
  if n<2 then writeln('Nie mo�na poda�')
  until (n>2);
  writeln(1);writeln(2);
  for i:=3 to n do
    if(i mod n<>0) then
    begin
      zm:=true; j:=1;
      repeat
        j:=j+1;
        if (i mod j=0)
        then zm:=false;
      until((j=i-1) or (zm=false));
    if (zm=true)
    then writeln(i);
    end;
  readln;
end.

program1.txt

Plik z chomika:

Inne pliki z tego folderu:

Inne foldery tego chomika: