Запишите в развёрнутом виде числа а)а8=143511; г)а10=143,511

А8=1*8^5+4*8^4+3*8^3+5*8^2+1*8^1+1*8^1 a10=1*10^2+4*10^1+3*10^0+5*10^(-1)+1*10^(-2)+1*10^(-3)

12 3 4 5 6 7 8 9 10 11 12 13 uses   crt; var   s : real;   i ,n : integer; begin readln (n ); s : = 0; for i : =1 to n do   s : =s + ( exp ( ln (3 ) / exp ( ln (2 ) *i ) ) ); writeln (s /n ); readkey end.

 

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.