Каково должно быть содержимое строки, помеченной ***, чтобы приведенная программа раскладывала целое число на множители?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;
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.
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.наслаждение, удовольствие от игры
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.