По шаблону ? означает ровно один любой символ, а * сколько угодно любых символов либо 0 сим. Так что ответ "e"
1) var a:array[1..10] of real;
i:integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:= random(200) -100;
write(a[i]:5); end;
writeln;
for i:=1 to 10 do
if a[i]>=0 then a[i]:=a[i]/2 else a[i]:=i;
write(a[i]:5);
end.
2) var a:array[1..1000] of real;
s1,s2:real;
i,n:integer;
begin
write('Введите кол-во элементов: '); readln(n);
writeln('Введите элементы массивы: ');
for i:=1 to n do
read(a[i]);
s1:=0; s2:=0;
for i:=1 to n do
if odd(i) then s1:=s1+a[i] else s2:=s2+a[i];
writeln('Сумма элементов с четными номерами: ',s2);
writeln('Сумма элементов с нечетными номерами: ',s1);
end.
Var
k,x:integer;
Begin
readln(x);
k:=2*x;
writeln('2*x = ',k);
k:=3-(5*x);
writeln('3-(5*x)= ',k);
k:=2+x-6;
writeln('2+x-6=',k);
<span>End.</span>
Запишем 32-значное двоичное число без лишних знаков. При необходимости добавляем ведущие нули
"00100110101101110000111110110110"
Разделим на 4 группы по 8 цифр и переведем их в 10ричную сс
00100110{2} = 38{10}
10110111{2} = 183{10}
00001111{2} = 15{10}
10110110{2} = 182{10}
IP = 38.183.15.182