В двоичную:
1)<span>18(10) = 10010(2)
</span>2) 7(10)<span> = 111(</span>2)
3) <span>1999(10) = 11111001111(2)
Получаем: 10010.111.</span>11111001111
В восьмиричную:
1) <span>18(10) = 22(8)
</span>2) 7(10)<span> = 7</span>(8)
3) <span>1999(10) = 3717(8)
</span>
Получаем: 22.7.3717
В шестнадцатиричную:
1) <span>18(10) = 12(16)</span>
2) 7(10)<span> = 7(</span>16)
3) 1999(10)<span> = 7CF(</span>16)
Получаем: 12.7.7CF
Говорит декан факультета информатики Сание<span> Мамбетовна. Ты отчислена! Завтра же зайди в деканат!</span>
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=Arr(-6,7,45,-12,2,7,-15,0,64);
var kp:=0; var sp:=0;
for var i:=0 to a.Length-1 do begin
WritelnFormat('A[{0}]={1}',i,a[i]);
if a[i]>0 then begin kp+=1; sp+=a[i] end
end;
Writeln('Сумма ',kp,' положительных элементов равна ',sp)
end.
Результат
A[0]=-6
A[1]=7
A[2]=45
A[3]=-12
A[4]=2
A[5]=7
A[6]=-15
A[7]=0
A[8]=64
Сумма 5 положительных элементов равна 125
<em>Задание 2</em>
begin
Writeln(SeqGen(40,x->45*x+15,1).Where(x->x.IsOdd).Count);
end.
<u>Результат</u>
20
<em>Задание 3</em>
begin
Writeln(SeqGen(25,k->7*k+3*k/15,1).Average);
end.
<u>Результат</u>
93.6
Program first;
Var a,k,x,y,n,i:integer;
begin
readln(a,x,k);
n:=0;
while n<k do
begin
y:=a*x;
writeln(y,' ',x);
n:=n+1;
end;
end.
Пробуй ,вроде бы должно работать
Ответ:
файловый менеджер проводник не предназначен для редактирования файлов