Регистрация
бббб9
30.09.2020 19:50
Информатика
Есть ответ 👍

Напечатайте в порядке возрастания первые 1000 чисел, которые не имеют простых делителей, кроме 2, 3, 5. (2, 3, 4, 5, 6, 8, 9, 10, 12, …).(программа в Паскаль. )Может кто знает как,

104
459
Посмотреть ответы 3

Ответы на вопрос:

Adelina12005
Adelina12005
4,8(59 оценок)

Все числа это простые делители, 1000 чисел писать не надо

PavelSol
PavelSol
4,6(41 оценок)

алгоритм далек от совершенства, медленный, но считает правильно. Паскаль

Объяснение:

var

 col: integer;

 i, k: longint;

 del: boolean;

function prost(a: longint): boolean;

var c: integer;

begin

 prost := a >= 2;

 for c := 2 to trunc(sqrt(a)) do if a mod c = 0 then prost := false;

end;

begin

 i := 2;

 col := 1;

 repeat

   del := (i mod 2 = 0) or (i mod 3 = 0) or (i mod 5 = 0);

   for k := 6 to i div 2 do if (prost(k) = true) and (i mod k = 0) then del := false;

   if del then

   begin

    Write(i, ', ');

    inc(col);

   end;

   inc(i);

 until col > 1000;

end.

кристина1966
кристина1966
4,7(38 оценок)

ответ: 1

Объяснение:

Пройдёмся по алгоритму... смотрите вложение.

Стрелка - сдвижение.

Кружок - закрашивание.


Робот выполнил такую программу алг Программа нач А A влево вверх A кон алг А нач вправо; закрасить в

Популярно: Информатика