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

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


textual

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

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.

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

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



Похожие ответы
  1. вывести фамилии, имена и отчества всех студентов мужского пола, старших 18 лет. Должна вводиться информация о студентах(фамилии, имена, отчества, пол, возраст).

  1. Добрый вечер не разбираюсь в паскале, но как сделать запрос, чтобы вывелся список цифр от 0001 до 9999, и главное чтобы все цифры имели вид *0001@ *0002@ *0003@ И так далее, в общем чтобы еще и добавлялись знаки * и @ в начале и концы. Спасибо заренее

  1. Протабулировать функцию на интервале : -0.2≤x≤0.8 с шагом h=0.1: Помогите пожалуйста, буду очень благодарен и признателен

  1. Задание: Даны три числа a, b, c. Составить программу нахождения значения минимального отклонения каждого из них от их среднего арифметического. Данные выбрать произвольно.

  1. Доброго времени суток, хотел бы попросить у Вас помощи в решение задач в turbo pascal:Разработка в среде Turbo Pascal программы формирования и обработки элементов одномерного массива: 1) Сформируйте двухмерный целочисленный массив S(4x9), используя генератор случайных чисел на интервале (-10, 6). Элементы массива вывести на экран в виде матрицы. 2) Преобразуйте массив S в одномерный массив X. Полученный массив вывести на экран. 3) Вычислите среднегеометрическое значение каждых третьих элементов последней четверти массива X. 4) Среди четных по значению элементов массива X определите наименьший. 5) упорядочить принадлежащие интервалу [a/2;b/2] элементы первой половины массива X по возрастанию квадратов значений. Заранее благодарен за помощь.

  1. Дана целочисленная матрица размерности (nxn ). 1. Если элементы, стоящие на главной диагонали являются четными числами, то к каждому максимальному элементу столбца добавить минимальный элемент соответствующей строки. В противном случае матрицу оставить без изменения.

  1. Дан целочисленный вектор А(n). Отсортировать его элементы методом просеивания.

  1. Здравствуйте! Есть проблема при вычислении остатка от деления. Нужно вычислить a^b mod t При этом, например a=226 b=91 t=3827 Были поптытки вычислить сначала a^b, потом от результата mod t. Но a^b не влазит ни в один тип данных. Подскажите пожалуйста, как мне посчитать этот остаток.