Задать вопрос
6 мая, 12:36

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

+3
Ответы (1)
  1. 6 мая, 16:22
    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. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы