Информатика | 10 - 11 классы
Дано натуральное число, подсчитать общее количество его делителей.
Помогите пожалуйста.
Pascal.
Составить программу?
Составить программу.
Дано натуральное число n.
Подсчитать количество цифр этого числа.
Pascal Дано три целых числа?
Pascal Дано три целых числа.
Вывести на экран те, для которых число А будет делителем.
Срочно помогите.
Pascal В заданном тексте подсчитайте общее количество букв "х" и "у"?
Pascal В заданном тексте подсчитайте общее количество букв "х" и "у".
Дано натуральное число?
Дано натуральное число.
Определить количество его нечетных делителей.
Написать программу паскаль).
Найти количество делителей натурального числа А, больших К?
Найти количество делителей натурального числа А, больших К.
(А и К вводятся с клавиатуры, K< ; = A).
Код должен быть написан на языке Паскаля (Pascal).
Найти количество делителей натурального числа?
Найти количество делителей натурального числа.
Сколько из них четных?
Решить в Turbo Pascal, без массивов.
Срочно, ПОЖАЛУЙСТА.
Найти сумму делителей данного натурального числа?
Найти сумму делителей данного натурального числа.
3. Дано натуральное число?
3. Дано натуральное число.
Найти сумму его четных делителей и количество этих делителей.
Плииииизз Составить программу с помощью процедуры?
Плииииизз Составить программу с помощью процедуры.
Дано число, найти все его делители и подсчитать их количество.
Дано натуральное число N ?
Дано натуральное число N .
Определить наименьшую и наибольшую цифры данного числа (Pascal ABC).
На этой странице находится вопрос Дано натуральное число, подсчитать общее количество его делителей?. Здесь же – ответы на него, и похожие вопросы в категории Информатика, которые можно найти с помощью простой в использовании поисковой системы. Уровень сложности вопроса соответствует уровню подготовки учащихся 10 - 11 классов. В комментариях, оставленных ниже, ознакомьтесь с вариантами ответов посетителей страницы. С ними можно обсудить тему вопроса в режиме on-line. Если ни один из предложенных ответов не устраивает, сформулируйте новый вопрос в поисковой строке, расположенной вверху, и нажмите кнопку.
Var n, i, number : integer ;
begin readln(n) ; number : = 1 ; {т.
К. само число является своим делителем} for i : = 1 to n div 2 do {т.
К. делителей больше половины чила ровно} begin {один, который мы уже учли} if n mod i = 0 then number : = number + 1 ; end ; writeln(number) ;
end.