Вкаких системах счисления выполняется неравенство 0,35 + 0,5 + 0.15> 1?

Если а - основание системы исчисления, то тогда (9/а)+(10/а*а)> 1   ->   9а+10> а*а   ->   а^2 - 9a - 10 < 0     a^2  -  9a  -  10 =0   ->   a1=10,   a2 = - 1     ->   a^2 - 9a - 10 < 0   при   -1 < a < 10 ->   основание системы     a     от 2 до 9 ,   для которых выполняется неравенство 0,35+0,5+0,15 > 1

1)

program z1;

var a: integer;

begin read(a);

if (a> 9) and (a< 100) then writeln(a, '-двузначное число')

else writeln(a, '-не является двузначным числом');

end.

2)

program z2;

var i: integer;

begin

for i: =1 to 9 do if (i mod 2 = 1) then writeln(i, ', ');

end.

2 способ:

program z2; var i: integer; begini: =1; while i< =9 do begin write(i, ', '); i: =i+2; end; end.

3)

program z3; var i,n: integer; s: real; a: array[1..100] of real; beginwrite('введите количество элементов массива: '); readln(n); write('введите элементы массива: '); for i: =1 to n do read(a[i]); i: =1; s: =0; while i< =n do begin s: =s+a[i]; i: =i+2; end; write('s=',s); end.

writeln('a[',i,']=',a[i]);

readln;

end.