Найти количество делителей натурального числа?

Danilovatony 9 авг. 2020 г., 01:39:41

Var N, delit, count, ccount : integer ;

begin read(N) ; count : = 0 ; ccount : = 0 ; for delit : = 1 to N do if N mod delit = 0 then begin count : = count + 1 ; if (delit mod 2 = 0) then ccount : = ccount + 1 ; end ; writeln('Delit : ', count) ; writeln('Chetn Delit : ', ccount) ;

end.

Kate1234432167 19 апр. 2020 г., 16:37:28 | 10 - 11 классы

Помогите решить?

Помогите решить.

В заданном натуральном трехзначном числе имеется четная цифра.

Pascal.

Vasilii01 13 сент. 2020 г., 23:59:11 | 10 - 11 классы

Вычислить сумму и количество положительных элементов массива x?

Вычислить сумму и количество положительных элементов массива x.

X(100).

Turbo Pascal.

Ashotornella 5 нояб. 2020 г., 10:39:51 | 10 - 11 классы

Помогите пожалуйста решить задачу в Turbo Pascal?

Помогите пожалуйста решить задачу в Turbo Pascal!

Посчитать в двумерном массиве количество нечетных чисел если массив является квадратной матрицей то транспонировать его.

Пустой 15 мар. 2020 г., 10:32:37 | 5 - 9 классы

Найти количество делителей натурального числа А, больших К?

Найти количество делителей натурального числа А, больших К.

(А и К вводятся с клавиатуры, K< ; = A).

Код должен быть написан на языке Паскаля (Pascal).

Marmarina83 12 авг. 2020 г., 09:54:20 | 5 - 9 классы

Turbo Pascal Человек ввел трехзначное число, при помощи функций div и mod найти их сумму?

Turbo Pascal Человек ввел трехзначное число, при помощи функций div и mod найти их сумму.

Mur4ik313 23 июн. 2020 г., 08:38:00 | 5 - 9 классы

Дано натуральное число : а)получить все его делители б)найти сумму его делителей в)найти сумму его четных делителей г)определить количество его нечетных делителей е)определить количество его делителей?

Дано натуральное число : а)получить все его делители б)найти сумму его делителей в)найти сумму его четных делителей г)определить количество его нечетных делителей е)определить количество его делителей.

Сколько из них четных?

Ж)найти количество его делителей, больших d" На ТУРБО ПАСКАЛЕ СРОЧНО!

Нежданка 5 июн. 2020 г., 23:48:41 | 10 - 11 классы

Дано натуральное число, подсчитать общее количество его делителей?

Дано натуральное число, подсчитать общее количество его делителей.

Помогите пожалуйста.

Pascal.

Люда1985 6 авг. 2020 г., 06:13:38 | 10 - 11 классы

Найти сумму элементов массива с четными номерами позиции В Pascal?

Найти сумму элементов массива с четными номерами позиции В Pascal.

Очень нужно!

Yula48 1 окт. 2020 г., 11:50:53 | 5 - 9 классы

Turbo Pascal даны действительные числа х, у найти минимальное из них?

Turbo Pascal даны действительные числа х, у найти минимальное из них.

Prishchepa 10 авг. 2020 г., 22:27:07 | 10 - 11 классы

3. Дано натуральное число?

3. Дано натуральное число.

Найти сумму его четных делителей и количество этих делителей.