На интервале от 1 до 1000 найти всех близнецов и подсчитать количество пар - Turbo Pascal

Формулировка задачи:

Два нечетных простых числа, разность между которыми равна 2, называются близнецами. На интервале от 1 до 1000 найти всех близнецов и подсчитать количество пар. Необходимо сделать ,используя только циклы ,а без функций и процедур я хз как(

Код к задаче: «На интервале от 1 до 1000 найти всех близнецов и подсчитать количество пар - Turbo Pascal»

textual
const n=1000;
var a : array [1..n] of boolean;
    x,y : integer;
begin
a[1] := false;//число 1 не простое
for x:=2 to n do a[x] := true;//пока все считаем простыми
for x:= 2 to round(sqrt(n)) do
for y:= 2 to n div x do //перебираем все возможные произведения
a[x*y] := false;//это составное, вычеркиваем его
//из того что осталось выбираем пары близнецов
for x:=1 to n-2 do
if a[x]and a[x+2] then write(x,' ',x+2,'   ');
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

14   голосов, оценка 3.714 из 5


СДЕЛАЙТЕ РЕПОСТ