ответ: 32+5*64+10*128 = 32+320+1280 = 1632
- количество таких слов 2^5 = 32
y - количество таких слов 2^4*4 = 16*4 = 64
xxxyx - количество таких слов 2^4*4 = 16*4 = 64
xxyxx - количество таких слов 2^4*4 = 16*4 = 64
xyxxx - количество таких слов 2^4*4 = 16*4 = 64
y - количество таких слов 2^4*4 = 16*4 = 64
xxxyy - количество таких слов 2^3*4^2 = 8*16 = 128
xxyyx - количество таких слов 2^3*4^2 = 8*16 = 128
xyyxx - количество таких слов 2^3*4^2 = 8*16 = 128
yyxxx - количество таких слов 2^3*4^2 = 8*16 = 128
xxyxy - количество таких слов 2^3*4^2 = 8*16 = 128
xyxyx - количество таких слов 2^3*4^2 = 8*16 = 128
yxyxx - количество таких слов 2^3*4^2 = 8*16 = 128
xyxxy - количество таких слов 2^3*4^2 = 8*16 = 128
yxxyx - количество таких слов 2^3*4^2 = 8*16 = 128
yxxxy - количество таких слов 2^3*4^2 = 8*16 = 128
когда мы были маленькие и учились в школе, у нас было невероятное количество лайфхаков, которые позволяли скрыть оценки от родителей. мы склеивали страницы дневника, вырывали их, затирали оценки лезвием, теряли дневник или имели его «черновую» и «чистовую» копии. иногда «забывали» положить дневник на стол к учителю…
в старших классах мы, уже философы, находили альтернативные варианты: замалчивали плохие оценки, но активно работали над тем, чтобы их «закрыть» хорошими, и тем самым не только вырабатывали в себе чувство ответственности, но и учились щадить нервную систему родителей.
program raf105;
var a:array[1..100] of integer;
i,b:integer;
begin
i:=1;
b:=1;
a[1]:=1;
writeln('Вводите 100 чисел по очереди');
for i:=1 to 100 do
begin
readln(a[i]);
if (a[i]<100) and (a[i]>9)
then b:= b+1;
end;
writeln('Количество двузначных чисел: ',b);
end.
Программа написана на языке PascalABC