Забавно, что вопрос относится к людям, работающих на англоязычной версии Windows. Для создания папки нажимаете правой кнопкой мыши, выбираете меню New и нажимаете на Folder. Если считать, что нужно выбирать сам пункт, то это будет пункт Folder, так как New - это часть контекстного меню.
<h2>Ответ</h2>
b
Const l = 5;
var
a: array[1..l] of integer;
d: array[1..l] of real;
i, otr, k, m: integer;
begin
otr:=0; k:=0; m:=0;
//считаем массив а
for i:=1 to l do
begin
readln(a[i]);
//если ввели положительное число,увеличим перем. otr на 1
if a[i] < 0 then
inc(otr);
//если ввели отрицательное число,увеличим перем. k на 1
//и к переменной m прибавим элемент
if a[i] > 0 then
begin
inc(k);
inc(m, a[i]);
end;
end;
//заполним массив d
for i:=1 to l do
//если индекс четный, присвоим элементу otr
//иначе присвоим среднее арифметическое
if i mod 2 = 0 then
d[i] := otr
else
d[i] := m/k;
<span>end.</span>
Ответ:
Объяснение:
var
num, num_work:integer;
a1, a2, a3, a4:integer;
begin
//num:=5225;
readln(num);
num_work:=num;
a1:=num_work div 1000;
num_work:=num_work mod 1000;
a2:=num_work div 100;
num_work:=num_work mod 100;
a3:=num_work div 10;
num_work:=num_work mod 10;
a4:=num_work;
if ((a1 = a4) and (a2 = a3)) then writeln('Да') else writeln('Нет');
end.
101010(2)=42(10)=1120(3)=52(8)=2А(16)
10221(3)=81+18+6+1=106(10)=162(8)=1110010(2)=72(16)
127(8)=1010111(2)=87(10)=10020(3)=57(16)
9В=10011011(2)=233(8)=255(10)=100110(3)