Jater

Fedya_prime_numbers

Nov 29th, 2012
82
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. var n,k,x:Integer;
  2. begin
  3.     writeln('vvedite n');
  4.     readln(n);
  5.     k:=0;
  6.     for x:=2 to n do
  7.         begin
  8.         if  (x=3)or(x=5)or(x=7) then
  9.             write(x:5);
  10.         if (x mod 2<>0)and(x mod 3<>0)and(x mod 5<>0)and(x mod 7<>0)  then
  11.             write(x:5);
  12.         end;
  13.     read;
  14. End.
RAW Paste Data