program asd; var x,k,n:integer; begin readln (n); for x:=100 to 999 do begin if (x div 100 + x div 10 mod 10 + x mod 10 = n) then k:=k+1; end; writeln (k); readln; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
