Определить количество трехзначных натуральных чисел, сумма цифр которых равна заданному числу n

litvinsofia245 litvinsofia245    1   02.06.2019 07:10    2

Ответы
dmitriidimaro dmitriidimaro  03.07.2020 06:08
Var
    N, i, k, sum, t: integer;

begin
    readln(N);
    k := 0;
    
    for i := 100 to 999 do
    begin
        t := i;
        while t > 0 do
        begin
            sum := t mod 10;
            t := t div 10;
        end;
        if sum = N then k := k + 1;
    end;
    
    writeln(k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика