Информатика, опубликовано 2018-08-22 23:17:11 by Гость

Вычислить количество всех трехзначных чисел сумма цифр которых равна 12

Ответ оставил Гость

Всего: 66

Паскаль:

Var i,n : Integer;
Begin
n:=0;
For i:=100 to 999 do
    If i div 100 + i div 10 mod 10 + i mod 10 = 12 then
    Begin
      Inc(n);
      Writeln(i);
    end;
Writeln(Всего: ,n);
end.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.