Информатика | 5 - 9 классы
С клавиатуры вводится целое число K (K< ; = 5).
Найти и вывести на экран первые К совершенных числа.
Совершенное число - - натурально число, равное сумме всех своих собственных делителей (т.
Е. всех положительных делителей, отличных от самого числа).
Натуральное число называется совершенным, если оно равно сумме всех своих собственных делителей, т?
Натуральное число называется совершенным, если оно равно сумме всех своих собственных делителей, т.
Е. делителей отличных от самого числа.
Примером совершенного числа является, например, 6 = 1 + 2 + 3.
Напишите программу, позволяющую вычислить, когда наступит следуюций совершенный год.
Pascal?
Pascal.
Тема : Циклы С клавиатуры вводится целое произвольное число 1) Вывести на экран первую и последнюю цифру числа.
2) Вывести на экран наибольшую цифру числа 3) Вывести на экран нечетные цифры этого числа.
1)найти количесво делителей натурального числа, сколько из них чётных?
1)найти количесво делителей натурального числа, сколько из них чётных?
2) дано натуральное число : найти две первые цыфры числа верно ли, что первая цыфраа данного числа чётная?
3)найти все трёхзначные числа, которые состоят из разных цыфр, а их сумма равна А(А вводится с клавиатуры) 4)найти все симметричные натуральные числа(палиндромаиз промежутка от А до В(А и В вводится с клавиатуры).
С клавиатуры вводиться натуральное число м < ; 27 найдите и выведите на экран все трехзначные числа натуральные числа , сумма цифр которых равна м?
С клавиатуры вводиться натуральное число м < ; 27 найдите и выведите на экран все трехзначные числа натуральные числа , сумма цифр которых равна м.
Pascal Дано три целых числа?
Pascal Дано три целых числа.
Вывести на экран те, для которых число А будет делителем.
Срочно помогите.
Вывести все совершенные числа в промежутке от 1 до 100 ?
Вывести все совершенные числа в промежутке от 1 до 100 .
Совершенное число это натуральное число равное сумме своих собственных делителей(отличных от самого числа).
Помогите написать программы в паскаль, пожалуйста?
Помогите написать программы в паскаль, пожалуйста!
1. Дано число х.
Найти и вывести на экран все его делители и их сумму.
2. В промежутке от 1 до n вывести все числа, сумма делителей которых равна самому числу.
Помогите решить задачи в Паскале, пожалуйста) 1?
Помогите решить задачи в Паскале, пожалуйста) 1.
Найти и вывести на экран все целые числа из промежутка от 1 до K, которые заканчиваются на цифру 3.
K вводится с клавиатуры.
2. Вычислить сумму чётных и сумму нечётных целых чисел от 1 до 100 3.
С клавиатуры вводится целое положительное число.
Определить, сколько раз в этом числе встретилась цифра 5.
4. С клавиатуры вводится целое положительное число.
Определить, сколько в этом числе чётных цифр Заранее спасибо).
Для каждого натурального числа в промежутке [m ; n] вывести все делители, кроме единицы и самого числа?
Для каждого натурального числа в промежутке [m ; n] вывести все делители, кроме единицы и самого числа.
M и n вводятся с клавиатуры.
Выводить в формате число : делители.
Натуральное число называется совершенным, если оно равно сумме всех своих делителей, включая единицу и исключая само себя?
Натуральное число называется совершенным, если оно равно сумме всех своих делителей, включая единицу и исключая само себя.
Вводится натуральное число.
Проверьте его на совершенство и выдайте ответ «Да» или «Нет».
Подсчитайте количество операций в вашем ал - горитме и выпишите его в виде функции от параметра n, где n – вводи - мое число.
Плюс два балла за правильный эффективный алгоритм про - верки числа.
Если вам необходимо получить ответ на вопрос С клавиатуры вводится целое число K (K< ; = 5)?, относящийся к уровню подготовки учащихся 5 - 9 классов, вы открыли нужную страницу. В категории Информатика вы также найдете ответы на похожие вопросы по интересующей теме, с помощью автоматического «умного» поиска. Если после ознакомления со всеми вариантами ответа у вас остались сомнения, или полученная информация не полностью освещает тематику, создайте свой вопрос с помощью кнопки, которая находится вверху страницы, или обсудите вопрос с посетителями этой страницы.
/ / PascalABC.
NET 3.
1, сборка 1195 от 09.
03. 2016
begin var n : = ReadInteger('n = ') ; var k : = 0 ; var m : = 3 ; repeat var s : = 0 ; for var i : = 1 to m div 2 do if m mod i = 0 then s + = i ; if s = m then begin Print(m) ; Inc(k) end ; Inc(m) ; until k = n
end.
Тестовое решение :
n = 4
6 28 496 8128
ВНИМАНИЕ : при n> ; 4 время вычисления может быть катастрофически большим!