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.
X=28
y=(28 mod 11) +3 ; y=10
x=(10 div 7)+3 ; x=4
c=10+4=14
Ответ:
ABCE=8
Объяснение:
ACDE=25
ACE=18
ABCDE=15
ABCE=8
Остальные пути не проходят через C
Program n;
uses crt;
var i:integer;
begin
for i:=-10 to 10 do writeln(i:4, abs(i):4);
<span>end. </span>