Вывести на экран все простые числа в диапазоне от A до В.
Answers & Comments
Лёлька22program tmp;uses crt;var m,i:longint; function simple(n:longint):boolean;var i:longint;beginsimple:=true;for i:=2 to round(sqrt(n)) do if n mod i=0 thenbeginsimple:=false;break;end;end; beginclrscr;write('enter n: '); readln(n);for i:=2 to n do if simple(i) then write(i,' ');readkey;end.
Answers & Comments