Задать вопрос
7 декабря, 06:27

Среди всех 3-значных чисел укажите те, сумма цифр которых равна данному числу k.

+5
Ответы (1)
  1. 7 декабря, 08:03
    0
    Var

    a, k: integer;

    begin

    readln (k) ;

    for a : = 100 to 999 do

    if ((a div 100) + (a mod 100 div 10) + (a mod 10) = k) then

    writeln (a) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Среди всех 3-значных чисел укажите те, сумма цифр которых равна данному числу k. ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
Среди всех n-значных чисел укажите те, сумма цифр которых равна данному числу k.
Ответы (1)
А. Составьте подпрограмму-функцию, которая по заданному натуральному числу n вычислит сумму его цифр. б. Составьте алгоритм, подсчитывающий количество n-значных натуральных чисел, у каждого из которых сумма цифр равна заданному натуральному числу k.
Ответы (1)
Дано натуральное число: определить а) количество цифр в нем б) сумму его цифр в) произведение его цифр г) среднее арифметическое его цифр д) сумму квадратов его цифр е) сумму кубов его цифр ж) его первую цифру з) сумму его первой и последней цифр
Ответы (1)
Задача: определить каких чисел больше: 5 значных, у которых все цифры чётные или 5 значных у которых все цифра нечётные. Помогите ...
Ответы (1)
Имеется исполнитель "Двоечка", имеющий следующую последовательность команд: 1. Удваивает данное число. 2. Прибавляет к данному числу 2, если данное число четное и вычитает из данного числа 2, если данное число нечетное. 3.
Ответы (1)