Привет.
Ответ вложен ниже. Пиши, если будут вопросы
<em>// PascalABC.NET 3.2, сборка 1482 от 12.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(3,4,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=a.ElementsWithIndexes.Where(z->z[0]<0);
if s.Count=0 then Writeln('Нет отрицательных элементов')
else begin
Write('Отрицательные элементы: ');
s.Select(x->Format('a[{0},{1}]',x[1]+1,x[2]+1)).Println
end
end.
<u>Пример</u>
*** Исходный массив ***
-62 13 -44 78
-19 73 92 -61
47 -13 3 43
----------------
Отрицательные элементы: a[1,1] a[1,3] a[2,1] a[2,4] a[3,2]
Var a: integer;
begin
//пред условие
read(a);
while a <> 0 do
begin
writeln('*');
read(a);
end;
end.
=====================
var a: integer;
begin
//пост условие
repeat
writeln('*');
read(a);
until a=0
end.
2. 128 = 10000000
256 = 100000000
512 = 1000000000
<span> 1024 = 1000000000
</span>
3. 1000001 = 65
10000001 = 129
<span> 100000001 = 257
</span> 1000000001 = 513
<span>4.
101 = 5 </span>
11101 = 29
101010 = 42
100011 = 35
<span> 10110111011 = 1467
</span>
5.
2= 10
7= 111
17= 10001
68= 1000100
315= 100111011
765= 1011111101
2047= 11111111111
<span>6.
11+1=100
111+1=1000
1111+1=10000
11111+1=100000
</span>
<span>7. </span>
111*10=1110
111*11=10101
1101*101=1000001
<span> 1101*1000=1101000</span>
Выделить <div> место для вашей картинки, дальше дать ему стиль.
Пример
<html><head></head><body><div style="width: 100%; height:200px; background-color: blue"></div></body></html>
Вместо цвета, можно использовать картинку