Дано натуральное число N. Найти наименьшее число М (N < M < 2N) которое делится на сумму цифр числа N (без остатка). Если такого числа нет, то
10-11 класс
|
вывести слово «нет». Пример. N = 12 345, М = 12360. Число 12 360 делится на число 15 — сумму цифр числа N
var M, N, sumN: integer;
begin
readln(N);
M := N;
sumN := 0;
while (M > 0) do
begin
inc(sumN, M mod 10);
M := M div 10;
end;
M := (N div sumN + 1) * sumN;
if (M < 2*N) then
writeln(M)
else
writeln('нет')
end.
Другие вопросы из категории
(укажите несколько правильных ответов)
1) Считывание двух байт за один такт синхронизации по фронту и спаду синхроимпульса
2) Систему самодиагностики, анализа и оповещения об ошибках и критических ситуаций с жестким диском
3) кеширование жесткого диска
4) технология чтения данных с жесткого диска с их оцифровкой и определения максимальной вероятности по методу Витерби
5) технология чтения данных с жесткого диска по принципу определения пикового уровня намагниченности
и качестве цветопередачи 32 бита?
1)весь экран
2)1/2 экрана
3)1/3 экрана
4)1/4экрана
только по подробнее напишите пожалуйста с решением
1) Да
2) Нет
3) Частично
Читайте также
написать программу, которая отвечает на вопрос " существуют ли два последовательных числа, не превосходящих N, сумма цифр каждого из которых делится на k?"
Входные данные: Два числа N(1<=N<=10000000000),k (1<=k<=100)
Выходные данные: Программа выводит два таких числа, если они существуют,"NO"- если нет.
которая отвечает на вопрос: "Существуют ли два последовательных числа, не превосходящих , сумма цифр каждого из которых делится на ?"
Входные данные. Два числа
Выходные данные. Программа выводит два таких числа, если они существуют, "NO" - если нет.
числа; • Найдите наибольшую цифру числа; • Найдите сумму цифр числа, больших 5.
2. Найти все двузначные числа, сумма квадратов которых делится на 17.
Всё это нужно сделать в программе Паскаль, но КАК?!
Например, 153=1³ + 5³ + 3³.
Входная строка содержит два натуральных числа- значения а и б.
Входные данные
Входная строка содержит два натуральных числа - значения а и б, разделенных пробелами. Гарантируется, что а≥б.
Выходные данные
Программа должна вывести в одну строчку все числа Армстронга на отрезке а, б, разделив их пробелами. если таких чисел нет, программа должна вывести -1.