Const nx=100;
var T:text; M:array[1..nx] of string; s,d:string;ch:char;
var i,p,j:integer;
begin
assign(T,'D:\1t\sip.txt');reset(T);
while not eof(T) do begin
Readln(T,s);p:=1;
While p>0 do begin
i:= i +1;p:=pos(' ',s);if p>0 then M[i]:=copy(s,1,p-1)else M[i]:=s; delete(s,1,p);
//writeln(M[i]);
end;end;close(T);
for ch:='А' to 'Я' do begin
for j:=1 to i do begin
if (m[j].Length >0) and (ch = uppercase(copy(m[j],1,1))) then begin //write(ch);
writeln(M[j]); M[j]:=''; end;end;end;<span>end.</span>
Тут не совсем понятно в чем конкретно это все делать, но я так понимаю, что в пеинте. Если так, то:
1) Выбрать нужный цвет в палитре и нажать на него правой кнопкой мыши
2) Выбрать нужный цвет в палитре и нажать на него левой кнопкой мыши
3) Выбрать в панели "Прямоугольник" и нарисовать фигуру
4) Выбрать в панели "Прямоугольник" и, зажав клавишу "Shift" нарисовать фигуру
5) Выбрать в панели "Овал" и нарисовать фигуру
6) Выбрать в панели "Овал" и, зажав клавишу "Shift" нарисовать фигуру
Если не трудно, пометь ответ как лучший. Удачи
<span>воспользуемся формулой I= log2N
</span><span>Имеем I= log28= 3 бита.</span>
№1
а) 101011111<span> + </span>111101<span> = </span>110011<span>100
б) </span>101011111 - 111101 = 100100010
в) 101011111<span> × 1</span>001<span> = </span>110001010<span>111
</span>№2
927 (10)<span> = 1</span>021100 (3) = 12202 (5) = 2463 (7) = 1<span>240 (9)
</span>№3
AC6 (16) - 432 (6) + 723 (9) - 444 (5) = AC6 (16) - A4 (16) + 24C (16) - 7C (16) = <span>BF2 (16)</span>
Крипты, Услуги, Выполняй задания чтобы получать денег, как Appbonus, NVuti