Среди всех 3-значных чисел укажите те,сумма цифр которых равна данному числу k.
Среди всех 3-значных чисел укажите те,сумма цифр которых равна данному числу k.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы