Задача №446
Дано натуральное число n. Выяснить, имеются ли среди чисел n, n+1,…,2n близнецы, т.е простые числа, разность между которыми равна двум. (определить процедуру, позволяющую распознавать простые числа)
Clrscr; Readkey;
да
Рис. Блок-схема подпрограммы функции numer
Numer:=false
да
да Numer:=false Numer:=true;
program n446;
Uses Crt;
var i,n:integer;
function numer(num:integer):boolean;
var i:integer;
begin
numer:=false;
if num>2 then
for i:=2 to num-1 do begin
if frac(num/i)=0 then begin
numer:=false; exit;
end;
end;
numer:=true;
end;
begin
Clrscr;
writeln('vvedite n');
read(n);
for i:=n to 2*n-2 do
begin
if numer(i) and numer(i+2) then writeln('bliznecu- ',i,' i ',i+2);
end;
Readkey;
end.
Пример:
Vvedite n
4
Bliznecu - 5 i 7
|
Переменная |
Тип |
назначение |
|
i |
целый |
Счетчик в цикле for |
|
n |
целый |
Число n |