Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

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

Дарья Профи (510), закрыт 12 лет назад
задача в паскале :определить количество трехзначных натуральных чисел, сумма цифр которых равна заданному числу N
Лучший ответ
inga zajonc Искусственный Интеллект (184715) 12 лет назад
x:=0;
for i:=10 to 99 do
begin
s:=n - i mod 10 - i div 10;
if (s>=0) and (s<10) then x:=x+1;
end;
Остальные ответы
Krab Вark Оракул (56958) 12 лет назад
var i,j,k,n,s:integer;
begin
readln(n); s:=0;
for i:=1 to 9 do for j:=0 to 9 do for k:=0 to 9 do if i+j+k=n then inc(s);
writeln(s); readln
end.
Manunich Мудрец (15854) 12 лет назад
var n,i,p,s,k:Integer;
begin
write('n:=');readln(n);
k:=0;
for i:=100 to 999 do begin
p:=i;s:=0;
while p>0 do begin inc(s,p mod 10);p:=p div 10;end;
if s=n then inc(k);
end;
writeln(k);
end.
Источник: Эх, какой-то у меня прямолинейный подход к задаче))
Похожие вопросы