Предмет: Информатика,
автор: instailler
Определить количество трёхзначных цыфр , сумма цыфр которого равна заданному числу N.
Ответы
Автор ответа:
0
const
m = 999;
var
i, N, count:integer;
begin
write('N = '); readln(N);
count := 0;
for i := 100 to m do
begin
if (i mod 10) + (i div 10) mod 10 + (i div 100) mod 10 = N then
inc(count);
end;
writeln('Count = ', count);
readln;
end.
Похожие вопросы
Предмет: Алгебра,
автор: nurayalmazova
Предмет: Математика,
автор: eborodbcx
Предмет: Русский язык,
автор: bella200843
Предмет: Математика,
автор: 1Демонесса1
Предмет: Алгебра,
автор: JNastya