Var a: string;
i: integer;
begin
readln(a);
for i := 1 to length(a) do
if (a[i] = 'а') then a[i] := 'и';
writeln(a);
<span>end.</span>
1) 111 101,100 (2cc)=75,4 (8cc)
11 1101, 1000 =3D,8 (16cc)
1 1 1 1 0 1, 1 = 2^5+2^4+2^3+2^2+2^0+2^(-1)=61,5 (10cc)
5 4 3 2 1 0 -1
-------------------------------------------------------------------------------
2) 233,5 (8cc) =10 011 011,101 (2cc)
1001 1011,1010(2cc) = 9B,A (16cc)
2 3 3 , 5 (8cc) = 2*8^2+3*8^1+3*8^0 +5*8^(-1) = 155,625 (10cc)
2 1 0 -1
-----------------------------------------------------------------------------------
3) 46 (10cc)=32+8+4+2=2^5+2^3+2^2+2^1=
=101 110 (2cc) =56 (8cc) =
=10 1110 (2cc) = 2E (16cc)
0, | 5625 *2
1 | 125 *2
0 | 25 *2
0 | 5 *2
1 | 0
0,5625 (10cc) = 0,1001 (2cc) =0,9 (16cc) =
= 0,100 100 (2cc) = 0,44 (8cc)
46,5625 (10cc) =101110,1001 (2сс) =56,44(8сс) = 2Е,9 (16сс)
4) 59,В (16сс) = 101 1001,1011 (2сс) =
=1 011 001,101 100 (2сс) =131,54 (8сс)
5 9, В = 5*16^1 +9*16^0+ 11*16^(-1) = 89,6875 (10cc)
1 0 -1
<span>Двоичная система исчисления</span>
Var K,n,i: integer;
begin
writeln('Введите число');
readln(K); n:=0;
for i:=1 to K do
if (i mod 2=1)and(K mod i =0) then n:=n+1;
writeln('Количество нечетных делителей числа равно ', n);
readln
end. Это?
1. Любыми
2. Вывести каждый элемент, добавляя после вывода пробел или символ смены строки. Можно также организовать смену строки, например, используя конструкцию Writeln
3. Может, если это динамический массив. Статический - не может, потому что его невозможно таковым описать.