Два простых числа называются «близнецами», если они отличаются друг от друга на 2 (например, 41 и 43). Напечатать все пары «близнецов»
123
125
Ответы на вопрос:
uses crt;
function Prost(a:integer):boolean;
var i:integer;
f:boolean;
begin
if a=1 then f:=false
else
begin
f:=true;
i:=2;
while(i*i<=a)and f do
if a mod i=0 then f:=false
else i:=i+1;
end;
Prost:=f;
end;
var n,i,k:integer;
begin
clrscr;
repeat
write('Введите целое число больше 2 n=');
readln(n);
until n>2;
k:=0;
for i:=n to 2*n-2 do
if Prost(i) and Prost(i+2) then
begin
k:=k+1;
writeln(i,' ',i+2);
if k mod 22=0 then {если чисел много, не войдут на экран}
begin {после 22 задержка}
write('Нажмите Enter');
readln;
end;
end;
if k=0 then write('Таких пар нет!');
readln
end.
function Prost(a:integer):boolean;
var i:integer;
f:boolean;
begin
if a=1 then f:=false
else
begin
f:=true;
i:=2;
while(i*i<=a)and f do
if a mod i=0 then f:=false
else i:=i+1;
end;
Prost:=f;
end;
var n,i,k:integer;
begin
clrscr;
repeat
write('Введите целое число больше 2 n=');
readln(n);
until n>2;
k:=0;
for i:=n to 2*n-2 do
if Prost(i) and Prost(i+2) then
begin
k:=k+1;
writeln(i,' ',i+2);
if k mod 22=0 then {если чисел много, не войдут на экран}
begin {после 22 задержка}
write('Нажмите Enter');
readln;
end;
end;
if k=0 then write('Таких пар нет!');
readln
end.
ответ:При подъеме и перемещении грузов вручную следует соблюдать нормы переноски тяжестей, установленные действующим законодательством:
для мужчин старше 18 лет – 50 кг
для женщин старше 18 лет:
при чередовании с другой работой – 10 кг
постоянное в течение рабочей смены – 7 кг
подъем тяжестей на высоту более 1,5 м – 10 кг.
Объяснение:
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
Mariya198511.10.2020 10:35
-
эльвинчик216.01.2022 12:22
-
lera505323.07.2020 23:56
-
foma2004korol30.11.2021 19:28
-
Zxcvbnm90011.12.2021 07:42
-
хеда6204.07.2020 21:28
-
aalleeks22.04.2020 18:24
-
sairma02.04.2023 19:41
-
1338105.05.2022 03:41
-
leafpool108.09.2022 08:26
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.