01.05.2012, 09:45. Просмотров 6204. Ответов 2
Вывести все простые числа от
M до
N включительно. Вывести числа в порядке возрастания, по одному в строке. Если между
M и
N включительно нет простых - вывести
Absent. Для быстродействия использовать процедуру или функцию. Этот код на паскале работает безупречно:
Pascal |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| program noraml;
var
n,m,i,j:longint;
f:boolean;
begin
readln(m,n);
f:=false;
for i:=m to n do
if (i mod 2=0) and (i<>2) or (i>10) and (i mod 10=5) or (i<2) then
continue
else
begin
j:=3;
while (j*j<i) and (i mod j<>0) do
inc(j,2);
if j*j>i then
begin
writeln(i);
f:=true;
end;
end;
if not f then
writeln('Absent');
end. |
|