Каково назначение ниже приведенной программы?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;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;

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

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

Каково назначение представленного ниже фрагмента программы?p:=m[1];for i:=1 to 30 doif m[i]>p then p:=m[i];writeln(p); Поиск максимального элемента из тридцати, имеющихся в массиве Поиск в массиве первого элемента, значение которого превышает среднее Поиск в массиве из тридцати элементов значений-дубликатов Поиск минимального элемента из тридцати, имеющихся в массиве

Какое значение примет переменная s в результате выполнения данной программы:s:=2;i:=-5;while i>=0 dobegini:=i-1;if i mod 2 = 0 thens:=s+1elsei:=i-1;end; 2 1 4 3