/ивт 9 класс делфи / паскаль/ 50 напишите программу, которая по данному натуральному числу n выводит все его простые натуральные делители с учетом кратности. время работы программы должно быть пропорционально корню из n. входные данные программа получает на вход одно число n< 2^31. выходные данные программа должна вывести все простые натуральные делители числа n с учетом кратности в порядке неубывания. примеры входные данные 6 выходные данные 2 3

Var
 n,d,k:int64;
begin
 read(n);
 d := 2; k := 4;
 while k <= n do
  begin
  while n mod d = 0 do
    begin
    write(d,' ');
    n := n div d;
    end;
  k := k + 2*d + 1;
  d := d + 1;
  end;
 if n > 1 then write(n);
end.

Циклы, в которых действия повторяются определенное количество раз, называются циклом со счетчиком

Вопрос №2 ?

Каким оператором описывается цикл с параметром в языке программирования Python? for

Вопрос №3 ?

Синтаксис цикла со счетчиком выглядит следующим образом: for i in range (n):

Вопрос №4 ?

Переместить исполнителя на 10 шагов вперед в предварительно заданном направлении можно с команды fd (10)

В следующих вопросах недостаточно информации для ответа(

Вопрос №5 ?

Что будет напечатано в результате выполнения фрагмента программы? 001224 245678 012345 002121

Вопрос №6 ? Чему будет равно S после выполнения фрагмента программы? 1 4 6 2

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var m:=Readinteger('Что ищем?');
  var k:=a.FindAll(x->x=m).Count;
  Writeln('Найдено таких элементов- ',k);
  if k>0 then Writeln('Номер первого такого элемента- ',
    a.FindIndex(x->x=m)+1)
end.

Пример
n= 17
-46 33 -9 -22 14 -46 -6 -3 -7 -18 46 42 -40 -40 0 29 -9
Что ищем? -9
Найдено таких элементов- 2
Номер первого такого элемента- 3