10101001(2) = 331(7) = 169(10) = A9(16)
1000101(2) = 126(7) = 69(10) = 45(16)
10010001(2) = 265(7) = 145(10) = 91(16)
10000101011(2) = 3000(7) = 1067(10) = 42B(16)
Var i,N1,N2,M,j:integer;
begin
writeln('Введите число N1');Read(N1);
writeln('Введите число N2');Read(N2);
M:= abs(n2 - n1)+1;j:=n1;
for i:=1 to M do begin
writeln(i:3,j:3);
j:=j + 1;end;<span>end.</span>
<span>char a[100];
puts("Введите строку:");
gets(a);
int count=0;
for(int i=0;i<strlen(a);i++)
{
switch(a[i])
{
case 'а';count++;a[i]='b';break;
case 'b';a[i]='а';break;
}
}
</span>
//PascalABC.Net 3.2
begin
var a: array of integer;
setLength (a, readinteger('Введите размерность массива: '));
var count:=0;
for var i:=0 to length(a)-1 do a[i]:=readinteger ('Введите элемент: ');
for var i:=1 to length(a)-1 do if (a[i-1]*a[i])<0 then count+=1;
write ('Кол-во раз: ', count);
end.
Смотря на каком диске,а так файл