Ludmila777020
?>

Простое число называется гиперпростым, если любое число, получающееся из него откидыванием нескольких последних цифр, тоже является простым. например, число 733 -– гиперпростое, так как и оно само, и числа 73 и 7 -– простые. напишите программу, которая находит все гиперпростые числа в заданном диапазоне. используйте функции.входные данныевходная строка содержит два натуральных числа – границы диапазона  a  и  b  . гарантируется, что  a  ≤  b  .выходные данныепрограмма должна вывести все гиперпростые числа из заданного диапазона в одной строке, разделив их пробелами. если ни одного числа не найдено, программа должна вывести 0.​

Информатика

Ответы

artashhovhan

PascalABC.NET

function IsPrime(n:integer): boolean;  // простое?

begin

 if n <= 1 then

 begin

   Result := False;

   exit

 end;

 Result := True;

 var (j, r) := (2, Round(Sqrt(n)));

 while Result and (j <= r) do

   if n mod j = 0 then

   begin

     Result := False;

     exit

   end

   else

     j += 1;

end;

function IsHyperPrime(n: integer): boolean; // гиперпростое?

begin

 Result := False;

 var k := 10;

 while n > 10 do

 begin

   n := n div 10;  

   if not IsPrime(n) then exit

 end;  

 Result := True

end;

begin

 var (a, b) := ReadInteger2;

 var found := False;

 foreach var n in Range(a, b) do

   if IsPrime(n) then // найдено простоe число

     if IsHyperPrime(n) then

     begin

       found := True;

       n.Print

     end;

 if not found then

   Write(0)

end.

centrprof20

Структура программы в Pascal

Итак, на предыдущей странице мы определились со следующими понятиями: program, integer, real, const, var, begin, end, write, writeln, read, readln. Давайте напишем программы на Паскале с их использованием. Но сначала выясним, из каких частей состоит программа на Паскале.

Любая программа на языке программирования Pascal имеет три составляющие: 1) заголовок; 2) раздел описаний; 3) тело программы.

✎ 1) Заголовок – это слово Program , после которого идет название программы латиницей и точка с запятой в конце. Название не может начинаться с цифры, не должно совпадать с зарезервированными словами (begin, end, integer и т.п.) или с названиями переменных из раздела описаний (см. ниже), а также недопустимо использование каких бы то ни было символов (‘@’, ‘%’, ‘&’ и т.п.), кроме подчеркивания. Название желательно давать со смыслом, которое отображало бы суть самой программы. Но заголовок писать не обязательно.

✎ 2) Раздел описаний – Поскольку сначала мы будем рассматривать задачи, то у нас во втором разделе будет находиться или описание констант, или переменных (см. пп. 4 и 5 статьи Введение в Pascal).

✎ 3) Тело программы – блок операторов, в котором записываются команды для выполнения. Начинается этот блок словом begin («начало»), а заканчивается словом end. («конец») с точкой в конце(пп. 6, 7 той же статьи).

Таким образом, в общем случае программа на Паскале выглядит следующим образом:

Код Pascal

1  

2  

3  

4  

5  

6  

7  

8  

9  

10  

Program <название программы>;

 <раздел описаний>

begin

 <оператор 1>;

 <оператор 2>;

 . . . . . . .

 <оператор N>;

end.

При решении задач ограничимся сначала целыми числами. Перед тем как начать программировать, укажем действия над числами в Паскале: «+» − сложение, «-» − вычитание, «*» − умножение, «/» − деление. Как видим, в программировании и математике элементарные действия над числами обозначаются одинаково. Решим следующую задачу:

Объяснение:

tolyan791

//PascalABC.NET

uses GraphABC;

var  c: integer;

begin

 window.IsFixedSize := true;//запрет изменения размера экрана

 window.Clear(cllightblue);//очистка экрана синим цветом

 pen.Color := clred;//меняем цвет пера на красный

 for var i := 0 to 19 do//цикл для отрисовки линий

 begin

   c := (window.Height div 19) * i;//сдвиг линнии по y

   line(0, 0 + c, window.Width, window.Height - c);//рисуем линию

 end;

end.

Объяснение:

uses graphabc;

begin

circle(50,50,50);

circle(50,50,20);

circle(150,50,50);

circle(150,50,20);

circle(250,50,50);

circle(250,50,20);

circle(350,50,50);

circle(350,50,20);

circle(450,50,50);

circle(450,50,20);

circle(550,50,50);

circle(550,50,20);

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Простое число называется гиперпростым, если любое число, получающееся из него откидыванием нескольких последних цифр, тоже является простым. например, число 733 -– гиперпростое, так как и оно само, и числа 73 и 7 -– простые. напишите программу, которая находит все гиперпростые числа в заданном диапазоне. используйте функции.входные данныевходная строка содержит два натуральных числа – границы диапазона  a  и  b  . гарантируется, что  a  ≤  b  .выходные данныепрограмма должна вывести все гиперпростые числа из заданного диапазона в одной строке, разделив их пробелами. если ни одного числа не найдено, программа должна вывести 0.​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Merkuloff78
TatyanaVladimirovich
mlf26
kiparistop
Chitaia
Bobkov
Nikishina
orbbsvsupply
ibzaira
schumacher8
Shcherbakov_Artur1781
asi19776
Алексеевич620
tomogradandrey
asparinapti39