Knowee
Questions
Features
Study Tools

Каково должно быть содержимое строки, помеченной ***, чтобы приведенная программа раскладывала целое число на множители?program p1;varx,m: integer;beginwrite('Введите число');readln(x);m:=2;if (x mod m) = 0 thenbeginwrite('*',m);x:=x div m;end***end. else m:=m+1/2; else m:=(m+1)/2; else m:=m+1; else m:=m/2; else m:=m-1;

Question

Каково должно быть содержимое строки, помеченной , чтобы приведенная программа раскладывала целое число на множители?program p1;varx,m: integer;beginwrite('Введите число');readln(x);m:=2;if (x mod m) = 0 thenbeginwrite('',m);x:=x div m;end*end. else m:=m+1/2; else m:=(m+1)/2; else m:=m+1; else m:=m/2; else m:=m-1;

🧐 Not the exact question you are looking for?Go ask a question

Solution

Ваша программа должна продолжать делить число на множители, пока это возможно. Это можно сделать с помощью цикла while. Содержимое строки, помеченной ***, должно выглядеть так:

while x <> 1 do
begin
  if (x mod m) = 0 then
  begin
    write('*',m);
    x:=x div m;
  end
  else
    m:=m+1;
end;

Этот код будет продолжать делить число на текущий множитель, пока это возможно. Когда это станет невозможным, он увеличит множитель на 1 и продолжит процесс, пока число не станет равным 1.

This problem has been solved

Similar Questions

Каково назначение ниже приведенной программы?program p1;varx,m: integer;beginwrite('Введите число');readln(x);m:=2;if (x mod m) = 0 thenbeginwrite('*',m);x:=x div m;endelse m:=m+1;end. Разложение целого числа на составляющие цифры Нахождение частного от деления целого числа на 2 Нахождение всех остатков целого числа Разложение целого числа на множители

Каково должно быть содержимое строки, помеченной ***, чтобы приведенная программа работала корректно?program p1;vart: byte;beginrepeatwrite('Завершить программу? 1 - да, 2 - нет');readln(t);***end. while t=1; until false; until t=1; while 1;

Расположите строки фрагмента программы так, чтобы в нем выводилась на экран сумма всех элементов массива, введенных пользователем? end; begin write('Введите элемент № ',i); readln(m[i]); for i:=1 to 30 do write(s); s:=0; for i:=1 to 30 do s:=s+m[i];

Каково назначение представленного ниже фрагмента программы?for i:=1 to 30 dobeginwrite('Введите элемент № ',i);readln(m[i]);end;n:=0;for i:=1 to 30 doif m[i]>=0 then n:=n+1;write(n); Определение количества положительных элементов массива Определение максимального элемента массива Определение количества отрицательных элементов массива Определение суммы порядковых номеров массива

Общей целью игры являетсяВопрос 11Выберите один ответ:a.решение социальных проблемb.выполнение некоторых правил, разыгрывание сюжета, выполнение определенной роли в игреc.мобилизация духовных и физических сил, чтобы оригинально выполнить ту или иную функциональную задачу конкретной игрыd.наслаждение, удовольствие от игры

1/3

Upgrade your grade with Knowee

Get personalized homework help. Review tough concepts in more detail, or go deeper into your topic by exploring other relevant questions.